Удаление подтекста из заданного текста.

Program Pro_47 (Input, Output);    

Объявление имени программы

Var         

Блок объявления глобальных переменных

Text, T   : String; 

Текст и подтекст соответственно

i               : Integer;              

i - переменная цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Удаление подтекста из заданного текста.');               

Формулировка цели алгоритма

Write ('Введите текст Text: ');          

Запрос ввода Text - исходного текста

ReadLn (Text);    

Ввод переменной Text

Write ('Введите подтекст T: ');        

Запрос ввода T - удаляемого подтекста

ReadLn (T);         

Ввод переменной T

While i <= Length (Text) - Length (T) + 1  Do              

Цикл : пока i не достигло правой границы проверки, выполнять...

Begin    

Начало тела цикла

If Copy (Text, i, Length (T) ) = T     

Если в тексте Text с i-ой позиции содержится подтекст T, ...

Then Delete (Text, i, Length (T) )    

То удаляем его из текста Text

Else i := i + 1;       

Иначе переходим к следующей позиции

End;      

Конец тела цикла

WriteLn ('Полученный текст: ', Text);          

Вывод преобразованного текста

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.