Ввести массив из n чисел. Далее требуется: вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получи

[scarecrow_1]

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

[Dvoishnik]

ввод

type TipMas=array[1..n] of integer;
......................
procedure ReArr (var mas:TipMas);
var i:integer;
begin
for i:=1 to n do
 begin
  WriteLn('введите ',i,' элемент массива')
  ReadLn(mas[i]:5);
 end;
end;

случайный цвет

uses crt;
......
procedure ColorRand ();
begin
randomize;
Textcolor(random(15));
end;

вывод массива

type TipMas=array[1..n] of integer;
......................
procedure Chet (mas:TipMas);
var i:integer;
begin
for i:=1 to n do
if (mas[i] mod 2) = 0 then 
 write(mas[i]:5);
end;

тело программы

.........
begin
repeat

{вызываем процедуры}

until ReadKey = orb('R');
end;