vstapodstr.PAS

Земляные работы

земляные работы

evromash.spb.ru

{* Вставка подстроки *}

Unit VSTAPODSTR;
Interface
Implementation
Begin
 writeln('

Вставка в заданную позицию строки другой строки.

s1, s2 – строки;
i – позиция вставки.

'
);
End.

Program pas31536;

Uses vstapodstr.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s1 : String;
  s2 : String;
  i  : byte;
Begin
  write('Input String 1: ');
  readln(s1);
  write('Input String 2: ');
  readln(s2);
  write('Input position: ');
  readln(i);
  insert(s2, s1, i);
  writeln(s1);
  readln
End.