помогите найти ошибку

[LyaLyaLya]

задание:
Определить наименьшее значение из сумм элементов столбцов матрицы целых чисел.

листинг:

Unit matr1;
interface
         const n=5; m=8;
         type mas= array [1..n,1..m] of byte;
         procedure vvod(var x:mas; n,m:byte);
implementation
         procedure vvod;
         var i,j:byte;
         begin
         for i:=1 to n do begin
         for j:=1 to m do
         x[i,j]:=i*2+j+2;end;
         end;
End.

unit matr2;
interface
          uses matr1; 
          type mat=array[1..m] of byte;
          procedure sum(x:mas; n,m:byte; var s:mat);
implementation
          procedure sum;
          var i,j:byte;
          begin
          for j:=1 to m do begin 
          for i:=1 to n do 
          s[j]:=s[j]+x[i,j]; end;
          end;
end.

unit matr3;
interface
          uses matr2;
          function min(s:mat; m:byte):byte;
implementation
          function min;
          var mm,j:byte;
          begin
          mm:=255;
          for j:=1 to m do
          if s[j]<mm then mm:=s[j];
          end;
end.

 Program lab7;
Uses crt, matr1,matr2,matr3;
var x:mas;
    s:mat;
 i,j,smin:byte;
Begin
clrscr;
writeln('matrica chisel:');
vvod(x,n,m);
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(x[i,j]:5); end;

writeln;
writeln('summa stolbcov:');

for j:=1 to m do begin
sum(x,n,m,s);
write(s[j]:5); end;

smin:=min(s,m);
writeln;
writeln('minimum summ:');
writeln(smin:5);
readln;

End.

Но почему-то оно не оч правильно работает!! Получается вот какая штучка:

matrica chisel:

    5    6    7    8    9    10   11   12
    7    8    9   10   11   12   13   14
    9   10   11   12   13   14   15   16
   11   12   13   14   15   16   17   18
   13   14   15   16   17   18   19   20
summa stolbcov:
   45  100  165  240   69  164   13  128
minimum summ:
    5

[LyaLyaLya]

плизззззз, плиииизззззз, хелп ми

[LyaLyaLya]

завтра зачет, а я не могу их домучать, а вы такие умные, плизззз

[evg_m]

function min;
var mm,j:byte;
begin
mm:=255;
for j:=1 to m do
if s[j]<mm then mm:=s[j];
end;
результат функции не определен есть только локальная перменная mm

Между прочим Delphi по этому поводу должен был выдать woring message с аналогичным текстом.

[LyaLyaLya]

ето Паскаль((

и что делать с mm?

[evg_m]

не знаю, это твоя программа.

[LyaLyaLya]

программа моя, но, если бы я знала в чем ошибка и как ее исправить, то я бы на просила вашей помощи