Исправить ввод и вывод - Pascal ABC

const
nmax=100;
var i,j,n:integer;
S2,S3:real;
A:array[1..nmax,1..nmax] of integer;
begin
writeln ('Введите размер массива n=');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
for j:=1 to n do
begin
write ('A[',i,',',j,']=');
readln (A[i,j]);
end;
S2:=0;
S3:=0;
for i:=1 to n-1 do
for j:=1 to n-i do
S2:=S2+A[i,j];
for i:=2 to n do
for j:=n-i+2 to n do
S3:=S3+A[i,j];
writeln( 'Исходный массив:');
for i:=1 to nmax do
begin
writeln;
for j:=1 to n do
writeln (A[i,j]);
writeln('Сумма элементов выше побочноый диогонали ',S2);
writeln('Сумма элементов ниже побочноый диогонали ',S3);
readln;
end;
end.