Как соединить 2 кода в один на паскале?

Question

[Wallz]

Есть 2 блока кода на паскале, как можно их объединить?
В итоге должно выйти, чтобы повторяющиеся слова в строке заменялись на три точки ("...")
Первый код

spoiler

var
s:string;
s1:string;
s2:string;
begin
writeln('Строка>'); readln(s);
s:=s+' ';
s2:='';
repeat
s1:=copy(s,1,pos(' ',s)-1); delete (s,1,pos(' ',s));
if (pos(s1,s)>0) and (s1<>' ') and (pos(s1,s2)=0)
then s2:=s2+s1+#32; until length(s)=0;
if s2='' then writeln ('нет повторяющихся слов') else writeln('Повторяющиеся слова:',s2);
end.

Второй код

spoiler

var
s,z:string; s1:string; s2:string;
i: byte;
begin
write('Введите текст:'); readln(s);
s:=s+' ';
s2:='';
repeat
s1:=copy(s,1,pos(' ',s)-1);
delete (s,1,pos(' ',s));
if (pos(s1,s)>0) and (s1<>' ') and (pos(s1,s2)=0) then s2:=s2+s1+#32;
until length(s)=0;
if s2='' then writeln ('нет повторяющихся слов') else writeln('Повторяющиеся слова:',s2);
write('На: ');
readln(z);
i:=pos(s2,s);
delete(s,i,length(s2));
insert(z,s,i);
writeln('Сделано: ',s);
end.

Answer 1

[Hemul GM]

Учи паскаль.