Двумерный массив (10x10). Найти максимум в каждой строке и минимум в каждом столбце.

Const   N = 10;Var   A:array[1..N,1..N] of integer;   i,j,M:integer;BeginRandomize;For i:= 1 to N do    Begin    M:=1;    For j:= 1 to N do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ');        if A[i,M]<A[i,j] then M:=j;        End;    WriteLn(' Max = ',A[i,M]);    End;WriteLn('Минимумы:');For j:= 1 to N do    Begin    M:=1;    For i:= 1 to N do        if A[i,j]<A[M,j] then M:=i;    Write(A[M,j]:3,' ');    End;End.