лабораторная работа / Матрица_макс-мин / PROG

program Matrix_has_you;
var
i,j,m,n: byte;
a: array[1..20,1..20] of integer;
xmin,ymin,xmax,ymax : byte;
buf : integer;
begin
Read(m,n);
for i:=1 to n do
    for j:=1 to m do
    Read(a[i,j]);
for i:=1 to n do
    begin
    xmax:=i;
    ymax:=1;
    xmin:=i;
    ymin:=1;
    for j:=2 to m do
        begin
        if a[xmax,ymax]<a[i,j] then
           begin
           xmax:=i;
           ymax:=j;
           end;
        if a[xmin,ymin]>a[i,j] then
           begin
           xmin:=i;
           ymin:=j;
           end;
        end;
    buf:=a[xmin,ymin];
    a[xmin,ymin]:=a[xmax,ymax];
    a[xmax,ymax]:=buf;
    for j:=1 to m do Write(a[i,j],' ');
    WriteLn;
    end;


end.