Дана матрица размера M на N. В каждой строке матрицы найти минимальный элемент- Pascal(Паскаль)

uses crt;
var a:array[1..10,1..10] of integer;
i,j,min:integer;
begin
clrscr;
randomize;
 
for i:= 1 to 10 do
 begin
  for j:=1 to 10 do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 
for i:= 1 to 10 do
 begin
  min:=a[1,j];
  for j:= 1 to 10 do
    if a[i,j] < min then min:=a[i,j];
  write('min v ',i,' stroke= ', min);
  writeln;
 end;
 
readkey;
end.