Программа для вставки =/

[NOMAD22]

Приветствую, мне нужна помощь, буду очень рад и благодарен если поможете. Так как я в паскале пока ещё не совсем мудр, обращаюсь к вам.
Хочу написать такую программу:
даёшь программе ссылки: "http://page.ru/page1"
" http://page.ru/page2"
" http://page.ru/page3"(20-30шт)
программа присваивает каждой ссылке переменную, и внутри кода вставляет их в нужные фразы (нужная "место для ссылки" фраза)
и выдаёт все готовые 20 фраз

(нужная "http://page.ru/page1" фраза)
(нужная "http://page.ru/page2" фраза)
(нужная "http://page.ru/page3" фраза)

Надеюсь поняли чего я добиваюсь)

Можно ли такое сделать? Если да, то дайте коды которые могут с этим помочь, или пример программы...

[ZX Spectrum-128]

Надеюсь поняли чего я добиваюсь

Не очень. Ссылки должны генерироваться однотипные, меняются только номера?

[NOMAD22]

Сообщение от ZX Spectrum-128

Не очень. Ссылки должны генерироваться однотипные, меняются только номера?

например ссылки страниц вконтакте, где меняется ID

[Stilet]

и внутри кода вставляет их в нужные фразы

А как определить какую ссылку куда? В тексте есть маркеры? Текст откуда берется?
Допустим из файла, тогда:

var q,w:TStringList; i:integer;
begin
 q:=TStringList.Create; q.LoadFromFile('text.txt');
 w:=TStringList.Create; ц.LoadFromFile('links.txt');
 for i:=0 to w.Count-1 do
  q.Text:=StringReplace(q.Text,w.ValueFromIndex[i],'('+w.ValueFromIndex[i]+' "'+w.names[i]+'")',[RfReplaceAll]);
 q.SaveToFile('text.txt');
 q.free; w.free;
end;

Где links.txt выглядит как:

http://page.ru/page1=Фраза № 1
http://page.ru/page2=Фраза № 2
http://page.ru/page3=Фраза № 3

Идея понятна?
только это на современных паскалях (в данном случае Free Pascal + Lazarus)

[NOMAD22]

Спасибо что отозвался, идея понятна, неудобно просить, но не совсем понимаю как мне дописать код, можно по подробнее?) Смотри "URL GOTO=X" в эту фразу на место Х нужно вставить ссылку например "http://vk.com/123456"(ссылку я вписываю в текстовик "http://vk.com/123456 № 1").
И ещё, как указать путь к текстовикам, в одну папку или как засунуть? с этим ещё не работал)