Двумерный массив

[Nastya835]

Здравствуйте, помогите пожалуйста решить задачу. Pascal.
Дана матрица А(5,4)
1) Найти новый одномерный массив В из минимальных элементов каждой строки матрицы А.
2) Найти сумму элементов матрицы А, где S=[LATEX]\sum_{ j-1}^{4}(A(5j)-5)/A(4j)[/LATEX]
Если непонятно, картиночку прикреплю.
3) Заменить последний элемент матрицы A на сумму S

[newerow1989]

var a:array[1..5,1..4] of real;
    b:array[1..5] of real;
    i,j:integer;
    s:real;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 4 do
      begin
         a[i,j]:=Random(20)+Random;
         Write(a[i,j]:8:5,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 5 do
   begin
      b[i]:=a[i,1];
      For j:=2 to 4 do
         If b[i]>a[i,j] then
            b[i]:=a[i,j];
      Writeln(b[i]:8:5);
   end;
   Writeln;
   s:=0;
   For j:=1 to 4 do
      s:=s+(a[5,j]-5)/a[4,j];
   Writeln('s = ',s:5:5);
   a[5,4]:=s;
   For i:=1 to 5 do
   begin
      For j:=1 to 4 do
         Write(a[i,j]:8:5,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.