Двумерные массивы. Определить и напечатать минимальный элемент заданой матрицы

uses crt;
type
vector = array [1..10] of integer;
matrix = array [1..10]  of vector;
var
 matr : matrix;
 i,j,k,min,sum : integer;
 
 begin
 clrscr;
 for i:=1 to 10 do
  begin
    writeln;
     for j:=1 to 10 do
         begin
           matr[i][j] := random(100)+10; // здесь можно заменить на ввод, но мне лень руками вводить 100 чисел
           write( matr[i][j]:5);
         end;
  end;
  min:=matr[1][1];
  for i:=1 to 10 do
      for j:=1 to 10 do
          begin
            if matr[i][j] < min then
               min:= matr[i][j];
          end;
 writeln;
 writeln('min = ',min);
 k:=1;
 while (k < 10) do
    begin
      for i:=1 to 10 do
          begin
            inc(sum,matr[k][i]);
          end;
      writeln('сумма элементов строки ',k,' = ',sum);
      sum:=0;
      inc(k,2);
    end;
 readkey;
end.