Дано ряд символов. Напечатать данных ряд, удалив при этом все вхождения th — Pascal(Паскаль)

Var
s:string;
i:integer;
begin
write('-: ');
readln(s);
for i:=1 to length(s) do
begin
delete(s,pos('th',s),2);
end;
writeln(s);
end.