Текст задания

Дана матрица A размерностью NxN. Необходимо найти нечетный элемент главной диагонали матрицы, имеющий максимальное значение.

Исходный код программы

Program Matrix;
uses
crt;
var
a:array[1..100,1..100] of integer;
i,j,max,n:integer;
begin
clrscr;
Write('n=');
readln(n);
For i:=1 to n do
 begin
  For j:=1 to n do
   begin
    Write('a[',i,',',j,']=');
    Readln(a[i,j]);
   end;
 end;
Writeln('Matrix:');
max:=0;
For i:=1 to n do
 begin
  For j:=1 to n do
   begin
    if i=j then
     if a[i,j] mod 2=1 then
      if a[i,j]>max then
       max:=a[i,j];
    Write(a[i,j],' ');
   end;
  Writeln;
 end;
If max=0 then Writeln('Vse elementi chetnie')
	 else Writeln('Max=',max);
readln;
end.

Блок-схема алгоритма программы