матрица Опции

[лоен]

по идеи этот код должен находить минимальную сумму столбцов.
помогите исправить.

Const
     max=20;
type
 mat:array[1..max,1..max] of integer;
var 
 i,j,x,y,s:integer;
 min:longint;
procedure vvod_m;
 Begin
  Writeln('Введите мерность матрици');
  Write('i='); readln(i);
  Write('j='); readln(j);
  Writeln('Введите массив:');
  for x:=1 to i do
   for y:=1 to j do
   Begin
    write('a[',x,',',y,']=');
    readln(a[x,y]);
   End;
 End;
begin
 vvod_m;
 Min:=0;
 for y:=1 to j do
 begin 
  s:=0
  for x:=1 to i do
  begin
   s:=s+A[x,y];
   if s<min then min:=s;
  end;
 end;
writeln(‘Минимальная сумма=’, min);
readln;
end.

Добавлено через 15 мин.
не знаю еще как сумму задать. написал ноль. но это по умолчанию неверно.