Сумма элементов строки с минимальным эл. в матрице Опции

[Volonter]

Привет всем, доброго Вам времени суток... У меня есть вот такая задачка... но до меня все никак не доходит как ее решить... помогите чем сможете Буду рад любой помощи ... Да кстати чуть не забыл, само условие:

В данной вещественной матрице порядка n найдите сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный.

[Volonter]

Привет народ... вот делаю все эту задачу... уже не могу... мне конечно помагали но всеже... для первого раза она меня потрепала... Так вот проверте пожалуйста по условию задачи код я хоть то натворил... или все оказалось в пустую?

Код

program test;
uses crt;
type arr = array[1..100,1..100] of real;
var
matrix: arr;
rows, lines, i, j, line :integer;
value, min, summ :real;
begin
clrscr;
writeln('Vvedite kolichestvo stolbcov: ');
readln(rows);
writeln('Vvedite colichestvo strok: ');
readln(lines);
writeln('Matrix ',rows,'X',lines,' successfuly created!!!');
{Filing a matrix}
for i:=1 to lines do
begin
     for j:=1 to rows do
     begin
     writeln('Vvedite stolbci ',j,' stroci ',i);
     readln(value);
     matrix[j,i]:=value;
     end;
end;
{End filing a matrix}
{Find a minimal value of matrix}
min:=matrix[1,1];
line:=1;
for i:=1 to rows do
begin
     for j:=1 to lines do
     begin
     if matrix[j,i] < min then begin
        min:= matrix[j,i];
        line:=i;
        end;
     end;
end;
writeln(min,'            ',line);
{End find a min value}
summ:=matrix[line,1];
for i:=2 to rows do
begin
summ:=summ+matrix[line,i];
end;
writeln('Summ elements of line ',line ,' = ',summ);
readln(summ);
end.

Конечно отличается малость от того чтоя раньше кидал но всеже... помогите, проверьте, тока пожалуйста ответьте сегодня а то мне завтра ее сдавать...