Решить задачу Turbo pascal

[ZMEEEI]

Всем привет!помогите еще задачку решить!
Задача "Ввести строку длинной 64 символа, вставить свою фамилию в юту строку следующим образом: длинна строки не должна измениться, вставить фамилию с позиции равной вариант +1" --мой вариант 12--
Заранее спасибо.

[puporev]

1.delete(s,i,count);
2.insert(s1,s,i);
i - позиция (номер) в строке с которого нужно вставить фамилию;
s1 - фамилия;
count - количество знаков в фамилии.

[ZMEEEI]

А МОЖЕШЬ ВСЕ ПОЛНОСТЬЮ НАПИСАТЬ?

[puporev]

Держи, не жалко. Это один из возможных вариантов.

Program fam;
uses crt;
var s,s1:string;i,j,k:integer;
begin
clrscr;
randomize;
for i:=1 to 64 do
s:=s+char(random(58)+65);     //создаем строку из 64 случайных
write(s);readln;              //символов с кодами от 58 до 122     
write('family:');readln(s1);  //вводим фамилию
j:=length(s1);                //длина фамилии      
write('position:');readln(k); //вводим позицию начала вставки
delete(s,k,j);                //очищаем нужное место
insert(s1,s,k);               //вставляем фамилию
write(s);readln;
end.

[ZMEEEI]

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!

[puporev]

Пожалуйста.