Перекраска клеток

uses crt;
type st=record
     s: string;
     x,y: integer;
     end;
var i,j,n,m,k,kil,l,imin,kl: integer;
    s1: string;
    a: array [1..20,1..50000] of integer;
    b: array [1..10000] of st;
procedure stroka(var b: st; s: string);
Var i: integer;
Begin
     s:=s+' ';
     i:=1;
     b.s:='';
     while s[i]<>' ' do
     Begin
          b.s:=b.s+s[i];
          i:=i+1;
     End;
     i:=i+1;
     b.x:=0;
     while s[i]<>' ' do
     Begin
          b.x:=ord(s[i])-ord('0');
          i:=i+1;
     End;
     i:=i+1;
     b.y:=0;
     while s[i]<>' ' do
     Begin
          b.y:=ord(s[i])-ord('0');
          i:=i+1;
     End;
End;
begin
     read(n,m,k);
     for i:=1 to k do
     begin
          read(s1);
          stroka(b[i],s1);
     end;
     for i:=1 to k do
     begin
         if b[i].s='Neighbors' then begin inc(kil); a[b[i].x,b[i].y]:=1;   end
         else if b[i].s='Color' then a[b[i].x,b[i].y]:=0;
     end;
     if (kil<>0) then
     BEGIN
     writeln(kil);
     //тут нужно написать нахождение соседних клеток
     END;
end.

a: array [1..20,1..50000] of integer;

a[i,j]:=1;

if a[i,j]==1 then writeln("сообщение с ошибкой это клетка как ты писал должна являться белой")
else if (a[i-1,j]=1) and (a[i+1,j]=1) and (a[i,j-1]=1) and (a[i,j+1]=1) then writeln(" по соседству нет белых клеток 0");
if (a[i-1,j]=0) // одна из соседних клеток белая и так далее