Процедуры. Найти в каждой строке матрицы наибольшие элементы и переместить в правую часть массива - Pascal ABC - Ответ 2861130

uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var a: matr;  n: byte;
 
procedure GenM (r: byte; var z: matr);
var i,j: byte;
begin
for i:=1 to r do
    for j:=1 to r do
        z[i,j]:=random(21)-10;
end;
 
procedure PrintM (r: byte; z: matr);
var i,j: byte;
begin
for i:=1 to r do
    begin
    for j:=1 to r do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
procedure Obmen(r: byte; var z: matr);
var i,j,jmax: byte;
    buf: integer;
begin
for i:=1 to r do
    begin
    jmax:=1;
    for j:=1 to r do
        if z[i,j]>z[i,jmax] then jmax:=j;
    if jmax<>r then
       begin
       buf:=z[i,r];
       z[i,r]:=z[i,jmax];
       z[i,jmax]:=buf;
       end;
    end;
end;
 
begin
repeat
write('Размерность матрицы, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
GenM (n,a);
PrintM (n,a);
writeln;
Obmen(n,a);
PrintM (n,a);
end.