[Pascal] Задача по матрице

[Workout111]

Дана действительная матрица размера k*n. Получить последовательность D1,...,Dn, где Di-это сумма наименьшего и наибольшего из значений элементов i-го столбца. Помогите составить программу!!

[Sciv]

const k=5;
      n=5;

type TMatrix=array [1..k,1..n] of real;

var m: TMatrix;
    sum: real
    col: integer;

Procedure CreateMatrix(var matr: TMatrix);
var i,j: integer;
begin
  For i:=1 to k do
    For j:=1 to n do begin
      Write('Введите элемент матрицы [',i,',',j,']: ');
      ReadLn(matr[i,j];
    end;
end;

Function Min(matr: TMatrix; colnum: integer): real;
var i: integer;
     curelem: real;
begin
  curelem:=matr[1,col];
  For i:=2 to k do 
    if matr[i,col]<curelem then curelem:=matr[i,col];
  Min:=curelem;
end;

Function Max(matr: TMatrix; colnum: integer): real;
var i: integer;
     curelem: real;
begin
  curelem:=matr[1,col];
  For i:=2 to k do 
    if matr[i,col]>curelem then curelem:=matr[i,col];
  Max:=curelem;
end;

Procedure OutMatrix(matr: TMatrix);
var i,j: integer;
begin
  For i:=1 to k do begin
    For j:=1 to n do Write(matr[i,j]:2:2,'     ');
    WriteLn;
  end;
  WriteLn;
end;

begin
  CreateMatrix(m);
  OutMatrix(m);
  Write('Введите номер столбца: ');
  ReadLn(col);
  sum:=Min(m,col)+Max(m,col);
  WriteLn('Сумма максимального и минимального элементов столбца №',col,'=',sum:2:2);
  ReadLn;
end.