В матрице сформировать массив, состоящий из номеров строк, в которых сумма элементов меньше или равна заданной величине А. Найти минимальный элемент в этих строках и прибавить его

[Арчибальд]

Program z8; 
var a: array [1..5,1..5] of real;{описание переменных} 
e,r,i,j: integer; 
s:real; 
t:text; 
begin 
assign(t,'i:\archhoyle.txt');{открытие файла} 
reset(t); 
writeln('введите количество строк'); 
readln(e); 
writeln('введите количество столбцов'); 
readln(r); 


for i:=1 to e do begin{чтение матрицы из файла} 
for j:=1 to r do begin 
read(t,a[i,j]); 
end; 
readln(t); 
end; 
s:=0; 
for i:=1 to e do begin 
for j:=1 to r do begin 
s:=s+a[i,j]; 

end;writeln (s); 
end; 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор


и сама матрица из текстового файла :

5 1 1 1 1
4 2 3 4 5
2 4 5 3 2
2 2 3 4 5
1 3 2 4 1

Не могу понять условие до конца. Как я понял: надо написать такую программу, при которой в случае того, если сумма элементов строки меньше заданного числа A, то выводится номер строки, например если A>=16, то программа должна вывести массив 1 3 4 5 (см матрицу). Но если я все-таки правильно понял, то не понимаю как это сделать. Только смог посчитать сумму всей матрицы( учусь в универе на перовом курсе. Программированием в школе не занимался, поэтому прошу помощи)