Вставка подтекста в текст с заданной позиции

Program Pro_43(Input, Output);     

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

Var         

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

Text, T   : String; 

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

p             : Integer;              

Номер позиции вставки

Begin    

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

WriteLn ('PASCAL: Вставка подтекста в текст с заданной позиции.');        

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

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

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

ReadLn (Text);    

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

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

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

ReadLn (T);         

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

Write ('Введите позицию вставки p: ');        

Запрос ввода p - позиции вставки

ReadLn (p);         

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

Insert (T, Text, p);              

Вставка подтекста T в текст Text с позиции p (стандарт. функция в Паскале)

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

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

ReadLn;

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

End.       

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