Выведите на экран все слова из строки, содержащие 3 цифры - Turbo Pascal

Формулировка задачи:

Выведите на экран все слова из строки, содержащие 3 цифры

Решение задачи: «Выведите на экран все слова из строки, содержащие 3 цифры»

Листинг программы

Var s,st:string;
    i,k:byte;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      st:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Length(st)<3 then Continue;
      k:=0;
      For i:=1 to Length(st) do
       if st[i] in ['0'..'9'] then inc(k);
      if k=3 then writeln(st);
    End;
    readln;
End.

Объяснение кода листинга программы

В начале кода объявляются переменные s и st типа string, а также переменные i и k типа byte.
Затем происходит чтение строки из стандартного ввода с помощью функции readln и сохранение её в переменной s.
Переменная s затем преобразуется путем добавления пробела после каждого символа, чтобы обеспечить выравнивание.
Затем используется цикл while для обработки каждого символа в строке s до тех пор, пока пробел находится в строке.
Внутри цикла создается подстрока st, которая содержит только первые три символа предыдущей строки s.
Затем удаляется один символ из строки s, чтобы обеспечить выравнивание.
Затем проверяется, содержит ли подстрока st ровно три символа. Если нет, то цикл продолжается.
Если подстрока содержит ровно три символа, то она выводится на экран с помощью функции writeln.
Цикл while завершается, и программа продолжает выполнение.
Код завершается вызовом функции readln для чтения символа новой строки с стандартного ввода.