Выведите все слова,в которых встречается удвоение буквы - Free Pascal - Ответ 13574158

program Zadanie105;
const
  albe = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
  enword = '.,;!?    ';
 
var
i,j: integer;  // Промежуточные переменные для организации цикла.
a,x,s: string;  // Промежуточные переменные для преобразования строк.
wrd: string;  // Переменная для хранения найденного слова в виде строки.
wd: boolean;    // Промежуточная переменная регистрирующая нахождение начала числа.
begw: integer;    // Переменная для хранения значения индекса начала слова в строке.
sizew: integer;   // Переменная для хранения значения длины слова в строке.
 
begin
 writeln('Введите строку:');
 readln(a);
 x:= a + ' ';
 for i:= 1 to length(x) do
   begin
     s:= copy(x,i,1);      // Разложение строки на отдельные знаки.
     if (pos(s,albe) <> 0) and  (not wd) then  // Условие распознавания начала слова.
       begin
       begw:= i;      // Получение индекса начала слова в строке.
       wd:= true;
       end;
     if ((pos(s,enword) <> 0) or (i = length(x))) and  (wd) then   // Условие распознавания конца числа.
       begin
         sizew:= i-begw;    //  Получение длины слова в строке.
         wd:= false;
         wrd:= copy(x,begw,sizew); // Слово выбранное из строки.
         for j:= 2 to length(wrd) do
           if copy(wrd,j-1,1) = copy(wrd,j,1) then  // Условие распознавания удвоения знаков в слове.
             begin
             write(wrd,' ');  // Вывод распознанного слова на экран.
             break;
             end;
       end;
   end;
 
  Readln;
end.