Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.

var
s:string;
i:byte;
k:integer;
 begin
 k:=0;
 writeln('vvedite predlogenie');
 readln(s);
  for i:= 1 to length(s) do begin   
 if s[i]='a' then
 k:=k+1;                                 
 end;
writeln('kolishestvo a=',k);
   readln;
end.

procedure TFormMain.Proc1(const S: string; out Stroch, Propis: Integer);
var
  I: Integer;
begin
  Propis := 0;
  Stroch := 0; 
  for I := 1 to Length(S) do
  begin
    if (S[I] >= 'a') and (S[I] <= 'z') then Propis := Propis + 1;
    if (S[I] >= 'A') and (S[I] <= 'Z') then Stroch := Stroch + 1;
    if (S[I] >= 'à') and (S[I] <= 'ÿ') then Propis := Propis + 1;
    if (S[I] >= 'À') and (S[I] <= 'ß') then Stroch := Stroch + 1;
  end;
end;

var
s:string;
i:byte;
k,m:integer;
begin
k:=0;
m:=0;
writeln('vvedite predlogenie');
readln(s);
for i:= 1 to length(s) do begin
if s[i] in [#97..#122] then
k:=k+1;
if (s[i] in [#160..#175]) or (s[i] in [#224..#239]) then
m:=m+1;
end;
writeln('kolishestvo latiskih=',k);
writeln('kolishestvo russkih=',m);
readln;
end.

s:string;
i:byte;
k:integer;
 begin
 k:=0;
 writeln('vvedite predlogenie');
 readln(s);
 for i:= 1 to length(s) do begin   {условие для поиска}
 if ((ord(s[i])>=97) and (ord(s[i])<=122)) or ((ord(s[i])>=160) and (ord(s[i])<=175))
 or ((ord(s[i])>=224) and (ord(s[i])<=239)) then
 k:=k+1;                                 {счестчик}
 end;
   write (k);
   readln;
end.

...
c1:=0;
c2:=0;
...
if s[i] in ['a'..'z'] then
  inc(c1)
else
  if s[i] in ['а'..'я'] then
    inc(c2);
...

...
c:=0;
...
if s[i] in ['a'..'z','а'..'я'] then
  inc(c);
...

var
s:string;
i:byte;
k,m:integer;
begin
k:=0;
m:=0;
writeln('vvedite predlogenie');
readln(s);
for i:= 1 to length(s) do begin
if s[i] in ['a'..'z'] then
  k:=k+1
else
  if s[i] in ['а'..'я'] then
  m:=m+1;
end;
writeln('kolishestvo latiskih=',k);
writeln('kolishestvo russkih=',m);
readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
e,r:integer;
begin
e:=0;
s:=Edit1.Text;
for r := 1 to Length(Edit1.Text)  do
if (s[r] in  ['а'..'я']) then 
e:=E+1; 
ShowMessage(InttoStr(e)+ ' - русских букв');
 
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  //Множество строчных букв.
  //Задание множества букв в таком виде совместимо и с кодовой страницей CP1251 (Windows)
  //и с CP866 (DOS).
  Da = [
    //Буквы кириллицы.
    'а'..'п', 'р'..'я', 'ё',
    //Буквы латиницы.
    'a'..'z'
  ];
var
  S : String;
  i, Cnt : Integer;
begin
  //Переключаем консоль на кодовую страницу CP1251 (Win-1251).
  //Если после переключения буквы кириллицы показываются неверно, следует
  //открыть системное меню консоли - слева вверху окна консоли - и выбрать:
  //свойства - закладка "Шрифт" - выбрать шрифт: "Lucida console".
  SetConsoleCp(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    Cnt := 0;
    for i := 1 to Length(S) do
      if S[i] in Da then Inc(Cnt)
    ;
    Writeln('Всего строчных латинских и русских букв: ', Cnt);
    Writeln(S);
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  //Множество заглавных букв.
  Dau = [
    //Буквы кириллицы.
    'А'..'П', 'Р'..'Я', 'Ё',
    //Буквы латиницы.
    'A'..'Z'
  ];
  //Множество строчных букв.
  Dal = [
    //Буквы кириллицы.
    'а'..'п', 'р'..'я', 'ё',
    //Буквы латиницы.
    'a'..'z'
  ];
  //Множество цифр.
  Dd = ['0'..'9'];
var
  S : String;
  i, CntAu, CntAl, CntD : Integer;
begin
  SetConsoleCp(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    CntAu := 0;
    CntAl := 0;
    CntD := 0;
    for i := 1 to Length(S) do
      if S[i] in Dau then Inc(CntAu)
      else if S[i] in Dal then Inc(CntAl)
      else if S[i] in Dd then Inc(CntD)
    ;
    Writeln('Всего заглавных букв: ', CntAu);
    Writeln('Всего строчных букв: ', CntAl);
    Writeln('Всего цифр: ', CntD);
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
var
  S : String;
  i, CntAu, CntAl, CntD : Integer;
  //  A 65-91 Z; // a 97-123 z; // 0 48-57 1
begin
  SetConsoleCp(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    CntAu := 0;      
    CntAl := 0;  
    CntD := 0;
    for i := 1 to Length(S) do
    begin
      if (ord(S[i]) >= 65) and (ord(S[i]) <= 91) then Inc(CntAu)
      if (ord(S[i]) >= 97) and (ord(S[i]) <= 123) then Inc(CntAl)
      if (ord(S[i]) >= 48) and (ord(S[i]) <= 57) then Inc(CntD)
    end;
 
    Writeln('Всего заглавных букв A-Z: ', CntAu);
    Writeln('Всего строчных букв a-z: ', CntAl);
    Writeln('Всего цифр 0-9: ', CntD);
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.