Здравствуйте, mustang289!
С учетом приложенной картинки вроде понятно что в вопрос Вы приклеили лишнее. Решение задачи будет таким.

[code lang=pascal]var rmatr:array[1..10,1..10] of real;
n,m,i,j,imn,imx:byte;
mn,mx,s:real;
begin
repeat
write('Введите количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Введите количество столбцов от 2 до 10 m=');
readln(m);
until m in [2..10];
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
rmatr[i,j]:=9*random;
write(rmatr[i,j]:5:2);
end;
writeln;
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+rmatr[i,j];
if i=1 then
begin
mn:=s;
mx:=s;
imn:=1;
imx:=1;
end
else if s<mn then
begin
mn:=s;
imn:=i;
end
else if s>mx then
begin
mx:=s;
imx:=i;
end;
end;
writeln('Строка с минимальной суммой=',imn,' сумма=',mn:0:2);
for i:=1 to m do
write(rmatr[imn,i]:5:2);
writeln;
writeln('Строка с максимальной суммой=',imx,' сумма=',mx:0:2);
for i:=1 to m do
write(rmatr[imx,i]:5:2);
end.[/code]