найти минимальные и максимальные элементы в каждой сроке матрицы и их порядковые номера

uses crt;
type matr=array [1..8,1..10] of integer;
var a,b,c: matr;
 
procedure GenM(ri,rj: byte; var z:matr);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(199)-99;
end;
 
procedure PrintM(c: char; ri,rj: byte;z:matr);
var i,j: byte;
begin
writeln('Матрица ',c);
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
procedure PrintMinMax(c:char; ri,rj: byte; z:matr);
var i,j,jmin,jmax: byte;
begin
writeln;
writeln('Минимальне и максимальные элементы матрицы ',c);
for i:=1 to ri do
    begin
    jmin:=1; jmax:=1;
    for j:=1 to rj do
        begin
        if z[i,j]>z[i,jmax] then jmax:=j;
        if z[i,j]<z[i,jmin] then jmin:=j;
        end;
    writeln(i,' строка: мин. элемент=',z[i,jmin]:4,', макс. элемент=',z[i,jmax]:4);
    end;
end;
 
begin
GenM(8,9,a);
PrintM('A',8,9,a);
PrintMinMax('A',8,9,a);
writeln('нажмите Enter для перехода к матрице В');
readln;
clrscr;
GenM(8,8,b);
PrintM('B',8,8,b);
PrintMinMax('B',8,8,b);
writeln('нажмите Enter для перехода к матрице C');
readln;
clrscr;
GenM(8,10,c);
PrintM('C',8,10,c);
PrintMinMax('C',8,10,c);
readln;
end.