Составить программу-процедуру RE(A,M,N,K,R)

uses crt;
type  matr=array[1..7,1..8] of integer;
      vec=array[1..8]of integer;
procedure Vvod(var a:matr;m,n:byte;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50)-25;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure RE(a:matr;m,n,k:byte;r:vec);
var i,j,imx:byte;
begin
imx:=1;
for i:=1 to m do
if abs(a[i,k])>abs(a[imx,k]) then imx:=i;
writeln('Максимальный по модулю элемент столбца ',k,' =',a[imx,k],' в строке ',imx);
for i:=1 to n do
r[i]:=a[imx,i];
writeln;
writeln('Вектор строки с максимальным по модулю элементом столбца ',k);
for i:=1 to n do
write(r[i],' ');
writeln;
writeln;
write('Press Enter ...');
readln;
clrscr
end;
var p1,p2:matr;
    b1,b2:vec;
begin
clrscr;
randomize;
Vvod(p1,7,8,'P1');
RE(p1,7,8,6,b1);
Vvod(p2,7,5,'P2');
RE(p2,7,5,2,b2);
end.