В введенном тексте подсчитать количество букв и количество цифр.

program р37;
  uses crt;
  var i,kod, s1 ,s2; integer;
      a:string;
begin
  clrscr;
  writeln' (a=',);readln(a);
  for i:=1 to length(a) do
    begin
{Находим код буквы.}
      kod;=ord(a[i]);
{Заглавные латинские буквы. }
      if ((kod >= 65) and (kod <= 90));
{Строчные латинские.}
      OR ((kod > 97) AND (kod <=122)) OR;
{Заглавные, строчные русские буквы.}
      (kod>=128) and (kod < 175) OR (kod >= 224 AND (kod < = 239))
      THEN S1:= S1 + 1;
{Цифры.}
      IF(kod>=48)AND(kod<=57)
      THEN S2:=S2+1;
    end;
  writeln('букв=',s1)
  writeln('цифр=',s2)
  readln;
end.