Составить программу формирования и вывода на экран одномерного массива, состоящего из минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел.- Pascal(Паскаль)

Uses
 CRT;
Const
 nmax=20;
var
 a:array[1..nmax,1..nmax] of integer;
 b:array[1..nmax] of integer;
 jmin,n,i,j,m:integer;
begin
repeat
 write('Ââåäèòå N: ');
 readln(n);
until n in [1..nmax];
repeat
 write('Ââåäèòå M: ');
 readln(m);
until m in [1..nmax];
for i:=1 to n do
 begin
 jmin:=1;
  for j:=1 to m do
   begin
    a[i,j]:=random(10)-3;
    if (a[i,j]<a[i,jmin]) then
     jmin:=j;
    write(a[i,j]:5);
   end;
   b[i]:=a[i,jmin];
  writeln
 end;
writeln;
for i:=1 to n do
 write(b[i]:5);
readkey
end.