Матрица в Pascal

[Nastik]

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

Помогите!!!не могу ничего сделать!!((((

[Izymka]

ну для начала найди минимум и его номер расположения, это просто...

[Nastik]

program lab_DZ;
uses crt;

Var q: array [1..100,1..100] of real;
i,j,n,k: integer;
min,S: real;
Begin
clrscr;
write ('n='); read(n);

for i:=1 to n do
for j:=1 to n do
read (q[i,j]);

min:=q[1,1];
for i:=1 to n do
begin
for j:=1 to n do
begin
write (q[i,j]:6:1);
if q[i,j]<min
then begin
min :=q[i,j];
k:=i;
end;
end;
writeln;
end;
for j:=1 to n do
S:=S+q[k,j];
writeln ('S=',S:6:1,' min=',min:6:1);
readkey;
end.

чё в этой программе не правильно????????