Переведите пожалуйста с языка QBasic/QuickBASIC на язык Pascal

Формулировка задачи:

DECLARE SUB Show (a!())
DIM a(20), b(20)
RANDOMIZE TIMER
PRINT "A ="
Show a()
PRINT "B ="
Show b()
END
 
SUB Show (a())
FOR i = 1 TO 20
  a(i) = INT(RND * 100)
  PRINT USING " ##"; a(i);
NEXT
PRINT
imin = 1
imax = 1
FOR i = 1 TO 20
  IF a(i) < a(imin) THEN imin = i
  IF a(i) > a(imax) THEN imax = i
NEXT
PRINT "MAX =", a(imax)
PRINT "imax =", imax
PRINT "CNT =", ABS(imin - imax) - 1
PRINT "MIN =", a(imin)
PRINT "imin =", imin
PRINT "MAX-MIN =", a(imax) - a(imin)
PRINT
END SUB

Решение задачи: «Переведите пожалуйста с языка QBasic/QuickBASIC на язык Pascal»

Листинг программы

const m = 20;
type arr = array[1..m] of integer;
 
procedure show(var x: arr);
var i, imin, imax: integer;
begin
  for i := 1 to m do
    begin
      x[i] := random(100);
      write(x[i]:3)
    end;
  writeln;
  imin := 1;
  imax := 1;
  for i := 1 to m do
    if x[i] < x[imin]
      then imin := i
      else if x[i] > x[imax]
        then imax := i;
  writeln('MAX = ', x[imax]);
  writeln('imax = ', imax);
  writeln('CNT = ', abs(imin - imax) - 1);
  writeln('MIN = ', x[imin]);
  writeln('imin = ', imin);
  writeln('MAX - MIN = ', x[imax] - x[imin]);
  writeln
end;
 
var a, b: arr;
begin
  randomize;
  writeln('A = ');
  show(a);
  writeln('B = ');
  show(b);
  readln
end.

Объяснение кода листинга программы

В начале кода объявляются две константы: m (количество элементов в массиве) и arr (тип массива).
Далее идет объявление двух переменных типа arr: a и b.
В процедуре show происходит заполнение массива a случайными числами от 0 до 99 и их вывод на экран.
Затем происходит поиск минимального и максимального элементов в массиве a и вывод их на экран.
В основной части программы происходит вызов процедуры show для массива a, затем для массива b.
В конце программы запрашивается ввод пользователя для завершения работы программы.