Рзработка модуля и программы использующей этот модуль (Delphi)

[Sonny01]

Здравствуйте. Помогите пожалуйста справиться с задачей:

Нужно создать модуль и программу использующую этот модуль, в консольном приложении; в модуле должны быть функции для вычисления максимального в строке и минимального в столбце значений в двухмерном массиве; программе обеспечить возможность выбора необходимой функции.

Спасибо.

[ОДИНОЧЕСТВО В СЕТИ]

Модуль

unit Unit1;

interface
type Matrix = array[1..100,1..100] of real;

   function MinRow(k:integer;n:integer;a:matrix):Double;
   function MaxColumn(k:integer;n:integer;a:matrix):Double;

implementation


function MinRow(k:integer;n:integer;a:matrix):Double;
var i:integer;
    min:double;
begin
min:=a[k,1];
for i:=2 to n do
if a[k,i]<min then min:=a[k,i];
result:=min;
end;
function MaxColumn(k:integer;n:integer;a:matrix):Double;
var i:integer;
    max:double;
begin
max:=a[1,k];
for i:=2 to n do
if a[i,k]>max then max:=a[i,k];
result:=max;
end;
end.

программа

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 In 'Unit1.pas';
 var a:matrix;
     i,j,n:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  n:=8;
  for i:=1 to n do
  begin
    for j:=1 to n do   begin
    a[i,j]:=Random(20);
    write(a[i,j]:6:3);
  end;
  writeln;
  end;
  Writeln(unit1.MinRow(1,n,a):6:3);
  Writeln(unit1.MaxColumn(1,n,a):6:3);
  readln;
end.

[Sonny01]

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