Pabc. Дана матрица A(5,6). Составить массив, содержащий минимальные элементы каждой строки.

var a: array [1..5, 1..6] of real;      b: array [1..5] of real;      i, j: integer;begin for i:=1 to 5 do          begin read(a[i,1]);                    b[i]:=a[i,1];                    for j:=2 to 6 do                    begin read(a[i,j]);   {ввод элементов массива в цикле с параметром}                              if (b[i]>a[i,j]) then b[i]:=a[i,j];                    end;                    writeln;    {для перехода на новую строку}          end;          for i:=1 to 5 do          write(b[i], );readln;end.