комментарии к программе

program text;
var
s:string;
i, x, a: integer;
begin
writeln ('Введите текст, в конце предложения поставьте точку: ');
read(s);
for i:=1 to length(s) do
if (pos(s[i],' ''.'))>0 then
x:=x+1
else
a:=a+1;
writeln ('Количество букв в тексте: ',a);
writeln ('Количество слов в тексте: ',x);
end.

program text;
var s:string; {Объявляем переменную для строки}
     i, x, a: integer; {Объявляем переменные для цикла и счетчиков}
begin
 writeln ('Введите текст, в конце предложения поставьте точку: ');
 read(s); {Считываем с клавиатуры текст}
 for i:=1 to length(s) do  {Перебираем элементы от 1 до конца текста}
  if (pos(s[i],' ''.'))>0 then x:=x+1 {Если (не совсем понятно что там) > 0 то ..... иначе .....}
                            else a:=a+1;
 writeln ('Количество букв в тексте: ',a); {Выводим количество букв}
 writeln ('Количество слов в тексте: ',x); {Выводим количество слов}
end.{Конец программы}

program Project1;
 
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество букв.
  Da = [
    //Русские буквы.
    'А'..'П', 'Р'..'Я', 'Ё', 'а'..'п', 'р'..'я', 'ё',
    //Буквы латиницы.
    'A'..'Z', 'a'..'z'
  ];
var
  S : String;
  i, Len, CntW, CntA : Integer;
begin
  Writeln('Задайте строку:');
  Writeln(S);
  
  //Длина строки.
  Len := Length(S);
  //Количество слов.
  CntW := 0;
  //Количество букв.
  CntA := 0;
  //Перебор всех символов строки.
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Подсчёт букв.
    if S[i] in Da then Inc(CntA);
    //Отслеживаем конец слова и производим подсчёт слов.
    if (i = Len) or (S[i + 1] in D) then Inc(CntW);
  end;
 
  Writeln('Количество слов: ', CntW);
  Writeln('Количество букв: ', CntA);
  
  Readln;
end.