Дан двумерный массив сосстоящий из 4 строк и 5 стобцов и

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] lt; min then min:= a[i, j];

    if a[i, j] gt; max then max:= a[i, j];

  end;

  writeln;

  writeln('Разность максимального и минимального элемента массива одинакова:  ', max - min);

end. 

Если что не понятно - спрашивай.