не могу получить найменьшую сумму...

[Ykanakataka]

Всем привет! у меня тут маааленькая проблема. уже час головой об стену стукаюсь, не помогает)
прога должна в конце выдавать наименьшую из сумм на экран и плюс номер строки откуда эта сума взята.
итак два вопроса:
- как сделать так что б выводился номер строки?
- почему у меня вместо найменьшей суммы выдает последнюю?
заранее спасибо)

PHP код:

Program summ;
Uses Crt;
Var a:array[1..5,1..5] of byte;
    summ:array[1..5] of byte;
    m:array[1..5] of byte;
    i,j:integer;
begin
  Clrscr;

  writeln('Vvedit" elementu matruci:');
  for i:=1 to 5 do
    for j:=1 to 5 do begin
      write('a[',i,',',j,']= ');
      readln(a[i,j]);
    end;
  writeln('MATRIX');
  for i:=1 to 5 do begin
    for j:=1 to 5 do begin
      write(a[i,j]:3);
      summ[i]:=summ[i]+a[i,j];
     if m[i]<summ[i] then m[i]:=summ[i];
       end;
     writeln;
  end;
  
  writeln('SYMMA v kozhnomy rjadky: ');
  for i:=1 to 5 do writeln(i,' rjadok: ',summ[i]);
  write('to EXIT put Enter))');
  readln;
writeln('najmenwa symma - ',m[i])
  readln;
end. 


[veniside]

http://ideone.com/RUACz

[Ykanakataka]

Большое огромное спасибо!!!!!!!