найдите ошибку в программе

заранее благодарен вот условие: Со спутника-шпиона получено изображение в некотором волновом диапазоне сверхсекретной военной базы предполагаемого противника. База расположена на Антарктиде, все постройки на ней высечены из кубов льда и имеют на фотографии квадратную форму и не имеют общих фрагментов стен ненулевой длины (по всей видимости, это сделано в целях маскировки от локаторов, работающих в инфракрасном спектре). Благодаря мастерству операторов оказалось, что стены разных построек параллельны границам фотографии. Для того, чтобы составить сверхсрочный отчет для командования, необходимо узнать, сколько зданий находятся на базе. Напишите программу, которая это сделает. Входные данные В первой строке входного файла INPUT.TXT записаны числа N и M (1 <= M, N <= 500) – размеры фотографии в пикселях по вертикали и по горизонтали. Следующие N строк содержат по M символов каждая: символ '.' соответствует пустому месту, '#' – элементу постройки. Выходные данные В выходной файл OUTPUT.TXT выведите единственное число – количество построек на базе. Моя программа: var b:array[0..999,0..999]of char; a:array[0..999,0..999]of byte; i,j,n,m,k:longint; f:text; begin k:=0; assign(f,'input.txt'); reset(f); read(f,n,m); for i:=1 to n do begin for j:=1 to m do read(f,b[i,j]); readln(f); end; close(f); assign(f,'output.txt'); rewrite(f); for i:=1 to n do for j:=1 to m do if ord(b[i,j])=35 then if (a[i,j+1]=1)or (a[i,j-1]=1)or (a[i+1,j]=1)or (a[i-1,j]=1)or (a[i+1,j+1]=1)or (a[i-1,j-1]=1)or (a[i+1,j-1]=1)or (a[i-1,j+1]=1)then a[i,j]:=1 else begin k:=k+1; a[i,j]:=1 end; write(f,k); close(f); end.