Вставка подтекста в текст с заданной позиции — Pascal(Паскаль)

Program Pro_43(Input, Output); 
Var 
Text, T : String; 
p : Integer;
 
Begin
 
WriteLn ('PASCAL: Вставка подтекста в текст с заданной позиции.');
Write ('Введите текст Text: ');
ReadLn (Text);
Write ('Введите подтекст T: ');
ReadLn (T); 
Write ('Введите позицию вставки p: ');
ReadLn (p); 
 
Insert (T, Text, p);
 
WriteLn ('Полученный текст: ', Text);
 
ReadLn;
End.