Ввести строку с клавиатуры. Напечатать каждую букву своим цветом — Pascal(Паскаль)

uses crt;
var
   s:string;
   k:byte;
   i:integer;
begin
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
   inc(k);
   textcolor(k);
   write(s[i]);
  end;
 readln
end.