Сделать массив с помощью процедур и функций

[You-Lol]

Добрый вечер, прошу помочь с использованием подпрограмм.

Нужно код переделать так чтобы : ввод данных, вычисление и вывод были отдельными подпрограммами. Не пойму как это сделать.

Зарание спасибо!

var
  a: array [1..99, 1..99] of integer;
  i, j, k, n, l: integer;

begin
  writeln('Vvtdite Kolichestvo elementov massiva');
  read(n);
  k := 1;l := 1;
  writeln('Vvedite matrix A', n, 'x', n);
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      readln(a[i, j]);
    end;
  end;
  writeln('Basha Marix');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      write(a[i, j]:6);
      if a[i, j] > a[k, l] then begin
        k := i;l := j; 
      end;
    end;
    writeln;
  end;
  writeln('Max Element A', n, 'x', n, ' [', k, ',', l, ']=', a[k, l]);
  writeln('Novaya Matrix');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      write((a[i, j] / a[k, l]):2);
    end;
    writeln;
  end;
end.

[ViktorR]

Например:
Определим тип данных для матрицы.

Type TMatr = array[1..99, 1..99] of integer;

Тогда процедура для ввода данных может быть примерно такой:

procedure GetMatr(var MyMatr : TMatr; n : integer);
begin
   ... {тут прямо код из программы. Только соответствие с именами переменных установи}
end;

Аналогично, для поиска max элемента:

procedure MaxElMatr(var MyMatr : TMatr; var k, l : integer);
begin
   ... {тут прямо код из программы. Только соответствие с именами переменных установи}
end;

Как-то так, ...