Минимальный элемент матрицы

uses crt;
var
    arr:array[1..5,1..10] of integer;
    arrOfMin:array[1..5] of integer;
    i, j:integer;
begin
 
    
    for i:=1 to 5 do
    begin
        for j:=1 to 10 do
        begin
            writeln('Vvedite element [', i, '][', j, ']');
            readln(arr[i,j]);
        end;
    end;
    
    for i:=1 to 5 do
    begin
        arrOfMin[i] := arr[i, 1];
    end;        
    
    for i:=1 to 5 do
    begin
        for j:=1 to 10 do
        begin
            if (arrOfMin[i] > arr[i,j]) then arrOfMin[i] := arr[i, j];
        end;
    end;
    
    for i:=1 to 5 do
    begin
        for j:=1 to 10 do
        begin
            write(arr[i, j]:3);
        end;
        writeln('min etoi stroki ', arrOfMin[i]);
    end;
    readkey;
end.

uses crt;
var
arr:array[1..5,1..10] of integer;
i,j,mn:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to 5 do
 begin
  for j:=1 to 10 do
   begin
    arr[i,j]:=random(20);
    write(arr[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to 5 do
 begin
  mn:=arr[i,1];
  for j:=1 to 10 do
  if mn> arr[i,j] then
  mn:=arr[i,j];
  writeln('Min v str. ',i,'=',mn);
 end;
readln;
end.