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

const n=3;
var a:array[1..n,1..n]of integer;
    i,j,im,jm,s:integer;
begin
randomize;
for i:=1 to n do
begin
  for j:=1 to n do
  begin
    a[i,j]:=random(101)-50;
    write(a[i,j]:5);
  end;
  writeln;
end;
im:=1; jm:=1;
for i:=1 to n do
begin
   for j:=2 to n do
   if a[i,j]<a[im,jm] then
   begin
     im:=i;
     jm:=j;
   end;
end;
writeln('Минимальный элемент: ',a[im,jm]);
s:=0;
for j:=1 to n do
s:=s+a[im,j];
writeln('Сумма = ',s);
readln;
end.