Количество букв в слове

uses crt;
var s:string;i:integer;
begin
clrscr;
writeln('dlya vihoda vvedite 999 ');
write('Vvedite stroku -> ');
read(s);
if s='999' then exit;
i:=1;
while (i<length(s)) do
inc(i);
writeln('kol-stvo bukv v slove -> ', i);
readkey;
end.

{ Написать программу, подсчитывающую количество букв во введенном с клавиатуры 
слове. Ввод осуществлять в цикле while do. Выход из программы – строка ‘999‘. }
 
const
  STOP='999';
var
  s: string;
begin
  s:='';
  while s<>STOP do
    begin
      write('Строка ');
      readln(s);
      if s<>STOP then
        writeln('Букв :', length(s));
    end;
  readln;
end.

if s <> '999' then begin
Count:=0;
for i:=1 to length (s) do
 if s[i] in ['A'..'z'] then inc (count);
Write ('Count= ',count)
end;

{ Написать программу, подсчитывающую количество букв во введенном с клавиатуры 
слове. Ввод осуществлять в цикле while do. Выход из программы – строка ‘999‘. }
 
const
  STOP='999';
var
  s: string;
  i, k, len: integer;
  letters: set of char;
begin
  letters := ['A'..'z','А'..'п','р'..'я','Ё','ё'];
  s:='';
  while s<>STOP do
    begin
      write('Строка ');
      readln(s);
      if s<>STOP then
        begin
          len := length(s);
          k:= 0;
          for i:= 1 to len do
            if s[i] in letters then
              inc(k);
          writeln('Букв :', k);
        end;
    end;
  readln;
end.

uses crt;
type rabot=record
           fam:string[20];
           age:byte;
           zrp:integer;
           end;
var a:array[1..20] of rabot;
    n,i,imn:byte;
    mn:integer;
begin
clrscr;
write('Количество работников n=');
readln(n);
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Работник ',i);
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    write('Возраст: ');readln(age);
    write('Зарплата: ');readln(zrp);
   end;
  end;
mn:=a[1].age;
imn:=1;
for i:=1 to n do
if a[i].age<mn then
 begin
  mn:=a[i].age;
  imn:=i;
 end;
writeln('Фамилия самого молодого ',a[imn].fam,' его зарплата=',a[imn].zrp);
if a[imn].zrp<5000 then write('Премия 10 минимальных окладов')
else write('Премия 5 минимальных окладов');
readln
end.