Ошибки в готовой программе - 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

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

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

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ