Заменить в тексте все сдвоенные буквы на одну — Pascal(Паскаль)

Program z2;
var f:text;
s:string;
i:integer;
Begin
assign(f,'FAIL-0.PAS');
reset(f);
 
readln(f,s);
for i:= Length(s) downto 2 do
if s[i]=s[i-1] then delete (st,i,1);
writeln(s);
readln;
end.