Введите три числа и выведите их в строчку в центре экрана - Turbo Pascal

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

Задача вроде простая, но у меня ничего не выходит. Помогите пожалуйста.. Вот задача: Введите три числа и выведите их в строчку в центре экрана: самое большое число красным цветом, самое маленькое синим цветом, среднее по величине желтым цветом.

Решение задачи: «Введите три числа и выведите их в строчку в центре экрана»

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

Program Min_Max;
uses crt;
var a:array[1..3] of integer;
i,min,max:integer;
begin
  Textcolor (12);
   For i:=1 to 3 do
     Begin
       A[i]:=random(100);
       Write(A[i]:4);
     End;
  Writeln;
  min:=a[1];
  for i:=1 to 3 do 
   begin 
      if a[i]>max then 
       max:=a[i];
      if a[i]<min then 
       min:=a[i];
  end;
  write('                                   ');
  for i:=1 to 3 do 
   begin 
      if a[i]=max then
       Begin
        textcolor(12);
        write(max:3);
       End;
      if a[i]=min then 
         Begin
          textcolor(9);
          write(min:3);
         End;
      if (a[i]<>min) and (A[i]<>max) then
           Begin
            textcolor(14);
            write(A[i]:3);
           End;
       End;
 readln;
end.

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

Создается программа Min_Max.
Используется библиотека crt.
Создается переменная типа array[1..3] of integer, названная a.
Создаются три переменные типа integer, названные i, min и max.
Выводится текст «Введите три числа и выведите их в строчку в центре экрана» с помощью функции Write.
С помощью цикла for перебираются числа от 1 до 3.
Для каждого числа выполняется следующая последовательность действий:
- присваивается значение переменной A[i] с помощью функции random(100);
- выводится значение переменной A[i] с помощью функции Write.
- переменной min присваивается минимальное значение из трех чисел;
- переменной max присваивается максимальное значение из трех чисел;
- проверяется, равно ли текущее число min или max.
- Если текущее число больше max, то max обновляется на текущее число;
- Если текущее число меньше min, то min обновляется на текущее число;
- Если текущее число не равно ни min, ни max, то выводится его значение с помощью функций Write и TextColor.
После завершения цикла выводится символ пробела с помощью функции Write.
Запускается цикл for заново для следующего числа.
Повторяются шаги 6-9 для оставшихся двух чисел.
После завершения цикла выводится символ новой строки с помощью функции Readln.