58 баллов за наполнение массива с подмогою паскаля необходимо заполнить массив

program raf105;

var

 a:array[1..5,1..5] of integer;

 i,j,o: integer;

begin

o:=-2;

for i:=1 to 5 do

begin

 writeln;

 for j:=1 to 5 do

 begin

   if (jlt;=3+абс(o)) and (jgt;=3-абс(o))

     then a[i,j]:=1

     else a[i,j]:=0;

   write(a[i,j],' ');

 end;

 o+= 1;

end;

end.

Язык PascalABC