помогите плз с паскалем , строки

[Damer]

нужно редактировать страницу, удалив из нее все вхождения удвоенное буквы "н"... Затем нужно продублировать ,в полученной строке, через пробел все уникальные слова,сохранив кол-во пробелов между словами исходной строки...

[Tkirill]

uses crt;
var
s,st,str:string;
i,j,n,k:integer;
mas:array[1..200] of string;
begin
clrscr;
write(' -> ');
readln(s);
writeln;
while pos('nn',s)<>0 do
begin
i:=pos('nn',s);
delete(s,i,2);
end;
for i:=1 to 200 do
mas[i]:='';
s:=s+' ';
i:=1;
n:=0;
st:='';
str:='';
repeat
if s[i]<>' ' then st:=st+s[i]
else
begin
n:=n+1;
mas[n]:=st;
st:='';
end;
i:=i+1;
until i>length(s);
st:='';
i:=1;
k:=0;
repeat
if s[i]<>' ' then st:=st+s[i]
else
begin
k:=0;
for j:=1 to n do
if mas[j]=st then k:=k+1;
if k=1 then str:=str+' '+st+' '+st
else str:=str+' '+st;
st:='';
end;
i:=i+1;
until i>length(s);
if str[1]=' ' then delete(str,1,1);
writeln(str);
readln;
end.

[Damer]

спс большое