Разделить все слова строки на три типа

uses crt;
var
 
 f: text;
 s: string;
 id, ch, pr, i, q: integer;
begin
clrscr;
 assign(f, 'D:\text.txt');
 reset(f);
 readln(f, s);
 writeln(s);
 
 for i:=1 to length(s) do
 case q of
 0: if s[i]=' ' then q:=0 else
 if (s[i]>='A')and(s[i]<='Z')or(s[i]>='a')and(s[i]<='z')then q:=1 else
 if (s[i]>='0')and(s[i]<='9') then q:=2 else
 if (s[i]='+')or(s[i]='-') then q:=21
 else q:=3;
 1: if (s[i]>='A')and(s[i]<='Z')or(s[i]>='a')and(s[i]<='z') then q:=1 else
 if (s[i]>='0')and(s[i]<='9') then q:=1 else
 if s[i]=' ' then begin
 q:=0;
 inc(id);
 end
 else q:=3;
 2: if (s[i]>='0')and(s[i]<='9') then q:=2 else
 if s[i]=' ' then begin
 q:=0;
 inc(ch);
 end
 else q:=3;
 3: if s[i]= ' ' then begin
 q:=0;
 inc(pr);
 end
 else q:=3;
 21: if (s[i]>='0')and(s[i]<='9') then q:= 2 else
 if s[i] =' ' then begin
 q:=0;
 inc(pr);
 end
 else q:=3;
 end;
 case q of
 1: inc(id);
 2: inc(ch);
 3: inc(pr);
 21: inc(pr);
 end;
 close(f);
 writeln('Идентефикатор',id);
 writeln('Целые числа',ch);
 writeln('Прочее',pr);
end.

case q of //смотрим по q
1: inc(id); // если q = 1 то к id прибавляем единицу
2: inc(ch);// если q = 2 то к ch прибавляем единицу
3: inc(pr);// если q = 3 то к pr прибавляем единицу
21: inc(pr);// если q = 21 то к pr прибавляем единицу
end; //конец условия
close(f); //закрываем файл f
writeln('Идентефикатор',id); //выводим слово Идентификатор и значение переменной id
writeln('Целые числа',ch); // выводим слова: Целые числа и значение переменной ch
writeln('Прочее',pr); //выводим слово : Прочее и значение переменной pr
end.