Написать программу сочетания фруктов и их цвета — Pascal(Паскаль)

uses CRT;
const
   N = 5;
   A: array[1..N] of string[30] = ('Вишенка', 'Виноград', 'Яблоко', 'BAR', 'Арбуз');
   ColorA: array[1..N] of Integer = (Red, Blue, Green, White, Yellow );

var i : integer;
begin
  clrscr;
  for i:=1 to N do begin
    textcolor(ColorA[i]);   
    Writeln(A[i]);
  end;
  readln
end.