Программа сравнения в заданной вещественнозначной матрице A (20×20) максимума по четным строкам с минимумом по нечетным — Pascal(Паскаль)

Program pr30 (Input, Output); 
Label 1; 
Var 
A: Array [1..20, 1..20] Of Real;
M, N : Integer;
i, j: Integer;
Min, Max: Real;
 
Begin
 
WriteLn
('PASCAL: Сравнение максимума по четным строкам с минимумом по нечетным.'); 
Write ('Введите число строк:N = '); 
ReadLn (N); 
Write ('Введите число столбцов: M = ');
ReadLn (M);
WriteLn ('Введите элементы матрицы:');
For i := 1 To N Do
For j := 1 To M Do 
Begin
Write ('A[', i, ',', j, '] = ');
ReadLn (A [i, j] );
End;
 
Min := A [1, 1]; 
Max := A [2, 1]; 
 
For i := 1 To N Do
For j := 1 To M Do 
Begin
If Odd (i) Then
Begin
If A [i, j] < Min Then 
Min := A [i, j]; 
End
Else 
Begin
If A [i, j] > Max Then 
Max := A [i, j]; 
End;
End;
 
If Abs (Max - Min) < 0.0001 Then 
Begin
WriteLn ('Максимум и минимум совпадают и равны: ', Max: 6: 2);
Goto 1;
End;
 
If Max > Min Then 
WriteLn ('Наибольшим является максимум по четным строкам: ', Max: 6: 2);
Else 
WriteLn ('Наибольшим является минимум по нечетным строкам:', Min: 6: 2); 
 
1: ReadLn; 
End.