Ошибки в готовой программе - Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Var s,i,j,b:integer;
const N=5;
Var A:array [1..n] of array [1..n] of integer;
begin
b:=(div(n/2))+1;
for j=1 to b do begin
   for i=1 to b do
   begin
   if ((i>0+s) and (i<n-s)
   begin
   A[j][i]=1;
   i++;
   end.
   else
   begin
   K[j][i]=0;
   i++;
   end.
   s++;
   end.
if j=b then
begin
s:=s;  //я просто не знаю можно ли пустой скелет сюда вставлять, поэтому столь глупая операция
end.
else 
begin
s:=0;
end
for i=b+1 to n do
begin   //ну тут для нижней части матрицы и потом вывод, ещё не дописал
 
end.

Ошибки 5.5 недопустимое выражение 5.8 синтаксическая ошибка, ожидается ")", но обнаруженно "(" Программа должна составить матрицу ввида 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0 0 1 1 1 0 1 1 1 1 1

Решение задачи: «Ошибки в готовой программе»

Листинг программы

write (a[i,j]:2);
writeln;

Объяснение кода листинга программы

write - это оператор вывода, который выводит значение переменной на экран без перехода на новую строку.
a[i,j] - это переменная, предположительно многомерный массив, из которой выводится значение.
:2 - это спецификатор формата, указывающий, что значение должно быть выведено с шириной два символа. Это означает, что если значение занимает меньше двух символов, то для выравнивания будет добавлено пробелов.
writeln - это оператор вывода, который добавляет символ перехода на новую строку после вывода.
Пустые скобки writeln означают, что на новой строке будет выведен перевод строки, без вывода каких-либо значений.