Ввод строки, выделить заглавные буквы цветом.

program lab_6;
uses crt;
const z:array[1..59] of string = ('Q','W','E','R','T','Y','U','I','O','P',
                                    'A','S','D','F','G','H','J','K','L',
                                        'Z','X','C','V','B','N','M',
                              'Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ',
                                'Ф','Ы','В','А','П','Р','О','Л','Д','Ж','Э',
                                  'Я','Ч','С','М','И','Т','Ь','Б','Ю','Ё');
var
st:string;
c:char;
i,l,j,ij,vt,vt2:integer;
begin
 clrscr;            
 readln(st);
 l:=length(st);
 If l<=60 then
 begin
 vt2:=0;
 For j:=1 to 59 do
  begin
   textcolor(white);
   If st[1] = z[j] then
    begin
     textcolor(red);
     Write(st[1]);
     vt2:=1;
    end;
  end;
 If vt2 = 1 then textcolor(red)
            else write(st[1]);
 For i:=2 to l do
  begin
   If st[i-1] = ' ' then
    begin
     textcolor(white);
     vt:=1;
     For j:=1 to 59 do
      begin
       If st[i] = z[j] then
        begin
         textcolor(red);
         Write(st[i]);
         vt:=0;
        end;
      end;
      If vt=1 then Write(st[i]);
    end
   else
    begin
     write(st[i]);
    end;
  end;
 end
 else writeln('Слишком длинная строка!');
end.