Считывание букв из файла и их раскраска согласно условию

program lab_protected1;
uses
  CRT;
var
  f: text;
  s: string;
  i: integer;
begin
  CLRSCR;
  assign(f, 'c:/Protected.txt');
  reset(f);
  begin// Попытки окрасить каждую букву отдельно
    readln(f, s);
    for i := 1 to length(s) do
      if S[i] = 'а' then
      begin
        textColor(green);
      end;
    if s[i] = 'б' then
    begin
      TextColor(red);
    end;
  end;
  close(f);
  begin
    reset(f);
    while not EOF(f) do // процедура вывода текста на экран из файла
      if not EOLN(f) then
      begin
        read(f, s);
        write(s);
      end
      else
      begin
        readln(f);
      end; // выводит текст из файла
  end;  
  close(f);
  readln;
end.

uses
 CRT;
var
  f: text;
  s: string;
  i: integer;
begin
clrscr;
assign(f, 'D:/1.txt');
reset(f);
while not eof(f) do
begin
 readln(f, s);
  for i:=1 to length(s) do
   if s[i] in ['à','á','â','ã'] then // или ['à'..'ã']
   begin
    textcolor(5);
    write(s[i])
   end
   else
   begin
    textcolor(0);
    write(s[i]);
   end;
 writeln;
end;
close(f);
readln;
end.

if s[i] in ['а','б','в','г'] then