задача на Паскале. Подскажите, где ошибка?
Var A:array[1..6,1..6] of integer;

 X:array[1..6] of byte;
 
  i,j,n:byte;
  sum:longint;

Begin
   
write('Введите кол-во строк N: ');
readln(n);

  sum:=0;

    For i:=1 to n do

    Begin
 
    For j:=1 to n do

      Begin
 
      write (vvedite matricy A[i,j]: ') ;

      write(A[i,j]:4);
 
       sum:=sum+A[i,j];
   
  End;
     
if (A[i,i])>(A[i,j]) then x[i]:=0

       else x[i]:=1;

      writeln;

    End;

    writeln ('Полученный массив');

    For i:=1 to n do
   
 write(X[i]:2);
   
writeln;
   
writeln('сумма матрицы = ', sum);
   
readln;

End.

Прикрепил исправление в виде скриншота и текстового документа с программой.Var   A:array[1..6,1..6] of integer;  X:array[1..6] of byte;  i,j,n:byte;  sum:longint;  Begin     writeln('Введите кол-во строк N: '); readln(n); sum:=0; writeln ('Введите матрицу A: ') ;   For i:=1 to n do   Begin    For j:=1 to n do     Begin        writeln('Введите элемент номер ',i,':',j);      readln(A[i,j]);           sum:=sum+A[i,j];      if (A[i,i])>(A[i,j]) then x[i]:=0             else x[i]:=1;              writeln;     End;      End;    writeln ('Полученный массив');    For i:=1 to n do   write(X[i]:2);  writeln;writeln('Сумма всех элементов матрицы = ', sum);readln;End.