{* Количество x и y *}

Unit XSUMY;
Interface
Implementation
Begin
 writeln('Подсчёт общего кол-ва x и y в тексте');
End.

Program pas;

Uses xsumy.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  S     : String;
  i     : integer;
  v     : integer;
  dlina : integer;
  x     : integer;
  y     : integer;
Begin
  writeln('Введите текст');
  readln(s);
  dlina := length(s);
  For i := 1 To dlina Do {* Увеличиваем i от 1 до dlina с шагом 1 *}
  Begin
    If s[i] = 'x' Then
      inc(x); {* x++ *}
    If s[i] = 'y' Then
      inc(y); {* Увеличиваем y на 1 *}
  End;
  v := x + y;
  Writeln('В тексте ', x, ' x');
  Writeln('и ', y, ' y');
  Writeln('Всего x и y - ', v);
  readln; {* Ждем подтверждения пользователя *}
End.