Задача на строки

[Juhn]

Помогите плз написать прогу по паскалю
Условие такое: в ведённой строке заменить все фрагменты "pavasaris" на "vasara"

Надеюсь кому то будет не сложно, а то блин завтра в к.р будет такая задача....

[Plague]

while pos(S,'pavasiris')<>0 do
begin
delete из S c позиции pos'a количество символов равное длине "pavasaris" их 9
insert в S c позиции pos'a "vasara"
end;