Pascal Блок-схема матрица

program mas4;
uses crt;
var
a: array[1..10,1..10] of integer;
i,j,max,max2,n,bol: integer;
begin
randomize;
clrscr;
max:=0;
max2:=0;
bol:=0;
write ('Введите количество элементов n');
Readln(n);
for i:=1 to n do
for j:=1 to n do
begin
writeln ('Введите матрицу = ');
for i:=1 to n do
for j:=1 to n do
Read(a[i,j]);
end;
readln;
begin
if j=1 then
writeln;
write(a[i,j]);
end;
max:=a[1,1];
max2:=a[1,1];
for i:=1 to n do
begin
if a[i,i]>max
then
max:=a[i,i];
end;
for j:=1 to n do
begin
if a [j,n-j+1]>max2
then
max2:=a[j,n-j+1]
end;
if max>=max2 then
bol:=max else
bol:=max2;
writeln('Наибольшее значение на главной диагонали = ', max);
writeln('Наибольшее значение на побочной диагонали = ', max2);
writeln('Максимальный элемент из главной и побочной диагонали =',bol);
readln;
end.