Дан двумерный массив...

Дан двумерный массив сосстоящий из 4 строк и 5 стобцов и заполненный случайным образом целыми числами от 1 до 100.. Найти разность максимального иминимального элемента массива.

 

var
  a: array [1..5, 1..4] of integer;
  min, max: integer;
  i, j: integer;
 
begin
  min:= 100;
  max:= 1;
  write('Исходный массив: ');
  for i:= 1 to 5 do
  for j:= 1 to 4 do
  begin
    a[i, j]:= random(99) + 1;
    write(a[i, j], '  ');
    if a[i, j] < min then min:= a[i, j];
    if a[i, j] > max then max:= a[i, j];
  end;
  writeln;
  writeln('Разность максимального и минимального элемента массива равна:  ', max - min);
end. 
Если что не понятно - спрашивай.