Сосчитать количество русских слов.

program proga;
uses
    crt;
var
   str: string;
   f: text;
   i,s,a: integer;
begin
     clrscr;
     assign (f, 'c:\123.txt');
     reset (f);
     readln(f, str);
     writeln(str);
     close (f);
     for i:=1 to length (str) do
         begin
              if (str[i]=' ') and (str[i]<>str[i+1]) then  { считает все слова и англ. и рус.}
              s:=s+1;
         end;
         write(s);
         readkey
end.

     for i:=1 to length (str) do
         begin
              if str[i] in ['А'..'я'] then 
              if (str[i]=' ') and (str[i]<>str[i+1]) then  { считает все слова и англ. и рус.}
              s:=s+1;
         end;

program proga3;
uses
    crt;
var
 
   str,str2: string;
   f: text;
   i,s: integer;
begin
     clrscr;
     assign (f, 'c:\123.txt');
     reset (f);
     readln(f, str);
     writeln(str);
     close (f);
     for i:=1 to length (str) do
         begin
              if str[i] in ['А'..'я',' '] then
              insert (str[i],str2,0);
         end;
         for i:=1 to length(Str2) do
             if (str2[i]=' ') and (str2[i]<>str2[i+1]) then
             s:=s+1;
             write(s);
             readkey
end.