строки.паскаль(((((

[Галька]

Задание:
Имеется строка длиной до 100 символов, в которой несколько раз встречается сочетание “real”. Сформировать строку, содержащую вместо указанного сочетания строку с сочетанием “double”.

[Stilet]

var s:string;i:integer;
begin 
 readln(s);
  i:=pos('real',s); while i<>0 do begin delete(s,i,4); insert(s,i,'double');i:=pos('real',s);end;
 write(s);
end;

пойдет?