Дан двумерный массив сосстоящий из 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.  Если что не понятно - спрашивай.