Вывести на экран латинский алфавит в прямом порядке от a до z(красным цветом) и обратном порядке от z до a (желтым цветом). используйте цикл for

uses crt;
type Tm=array [1..26] of char;
var a:Tm; i,n:integer;
begin
  n:=65;
  for i:=1 to 26 do
  begin
    textcolor(red);
    a[i]:=(chr(n));
   write(a[i],' ');
   n:=n+1;
  end;
  writeln;
  for i:=1 to 26 do
  begin
   textcolor(yellow);
   a[i]:=(chr(123-i));
   write(a[i],' ');
   n:=n+1;
  end;
end.