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

[футбик]

помогите разобраться пожалуйста
необходимо разделить элементы каждой строки матрицы на максимальный элемент этой строки
Оформить как подпрограммы:
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.

[volvo]

получается не совсем как хочется

Вот... А теперь - начинается самое интересное

Ты знаешь, что выведет вот эта программа:

var n: integer;

  procedure print_n;
  var n: integer;
  begin
    writeln(n);
  end;

begin
  n := 10;
end.

?
Даже не думай, что 10... Локальная переменная (N, описанная в процедуре) "заслоняет" собой глобальную, и все обращения к N внутри процедуры однозначно трактуются компилятором, как работа с ЛОКАЛЬНОЙ переменной... А содержимое ее совсем не равно содержимому глобальной N, описанной в первой строке программы...

У тебя то же самое... Убери из списка переменных, описанных в процедуре Go, эти самые N и M, и все заработает...

И (на будущее) отлаживай программы в режиме "контроля границ" (Options -> Compiler -> установить галку на Range Checking), тогда ты бы сразу увидел, что у тебя происходит вылет за границу массива, и стало бы понятно, куда копать...