подпрограммы, Разделить элементы каждой строки матрицы на максимальный элемент этой Опции

[футбик]

помогите разобраться пожалуйста
необходимо разделить элементы каждой строки матрицы на максимальный элемент этой строки
Оформить как подпрограммы:
1. ввод двумерного массива
2. алгоритм обработки массива
3. Вывод двумерного массива на экран
Все процедуры должны иметь параметры.

type matrix=array[1..7,1..7] of real;
  var
    i,j,n,m:integer;

  Procedure input( var a:matrix);     //ввод массива
  begin
  writeln('введите число строк и столбцов массива:');
  read(n,m);
  writeln('введите элементы массива: ');
  for i:=1 to n do
  for j:=1 to m do
    begin
    read(a[i,j]);
    end;
  end;

  Procedure go ( a:matrix);           //обработка
  var
  i,j,n,m:integer;
  amax:array[1..7] of real;
  c:real;
    begin
    for i:=1 to n do
      begin                                      //обработка массива не идет
      c:=a[i,1];
      for j:=1 to m do
      if amax[i]>c then amax[i]:=c;
      if amax[i]<>0 then a[i,j]:=a[i,j]/amax[i];
      end;
    end;

  Procedure output ( var a:matrix);       //вывод
  begin
  for i:=1 to n do
    begin
    for j:=1 to m do
    write(a[i,j]);
    writeln;
    end;
  end;
var a:matrix;

begin
input(a);
go; // пишет неверное количество фактических параметров (
output(a);
end.