program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=5;
      m=10;
var a:array[1..50,1..50]of integer;
    i,j,min:integer;
begin
randomize;
writeln('Matrica:');
For i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20)-9;
        write(a[i,j]:4);
      end;
    writeln;
  end;
For i:=1 to n do
  begin
    min:=a[i,1];
    for j:=1 to m do
    if a[i,j]<min then min:=a[i,j];
    writeln('Min v str ',i,' =',min);
  end;
readln
end.