Ошибка в коде (очень устал искать)

uses crt;
var
f: text;
s, slovo: string;
i, j, n, schet, ch_slov, kol_gl, kol_sl, robit, k: integer;
begin
schet:=0;
assign(f,'input.txt');
Reset(f);
while not eof(f) do
  begin
  inc(schet);
  Readln(f,s);
  //Работа со строкой
     begin
     If (schet mod 2)=1 then                                //Первое условие - нечётность строки
                   begin
                   textcolor(1);
                   for i:=1 to length(s) do
                   If (s[i]=' ')or(s[i]='')or(s[i]='.')or(s[i]='!')or(s[i]='?') then inc(ch_slov);
                   end
                        else
                   begin                                    //Второе условие - чётность нечётность
                   for i:=1 to length(s) do
                       begin
                       k:=ord(s[i]);
                       If (k>191)and(k<=255)then slovo:=slovo+s[i]
                   else
                       begin
                       for j:=1 to length(slovo) do
                           If (slovo[j]='А')or(slovo[j]='а')or(slovo[j]='Е')or(slovo[j]='е')or(slovo[j]='Ё')or(slovo[j]='ё')
                           or(slovo[j]='И')or(slovo[j]='и')or(slovo[j]='О')or(slovo[j]='о')or(slovo[j]='У')or(slovo[j]='у')
                           or(slovo[j]='Ы')or(slovo[j]='ы')or(slovo[j]='Э')or(slovo[j]='э')or(slovo[j]='Ю')or(slovo[j]='ю')
                           or(slovo[j]='Я')or(slovo[j]='я')
                           then inc(kol_gl) else inc(kol_sl);
                       If ((kol_gl mod 2)=0)and((kol_sl mod 2)=1) then robit:=1;
                       end;
                       end;
                   end;
                   
     If robit=1 then
                     begin
                     textcolor(1);
                     for i:=1 to length(s) do
                     If (s[i]=' ')or(s[i]='')or(s[i]='.')or(s[i]='!')or(s[i]='?') then inc(ch_slov);
                     end;
     end;
  writeln(s);
  textcolor(black); robit:=0;
  end;
writeln('Число слов в выделенных участках - ',ch_slov);
close(f);
end.