Найти наименьший элемент двумерного массива заполненного случайными числами в диапазоне от 0 до 20

vara: array [1..10,1..10] of Integer ;i,j,min:Integer;begin for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=Random(20); Write(a[i,j]:3); end; WriteLn(); end; min:= a[1,1]; for i:=1 to 10 do for j:=1 to 10 do if a[i,j] < min then min:=a[i,j]; WriteLn('Минимальный элемент равен ', min);end.