Помогите плз написать прогу по паскалю
Условие такое: в ведённой строке заменить все фрагменты "pavasaris" на "vasara"
Надеюсь кому то будет не сложно, а то блин завтра в к.р будет такая задача....
uses crt;
var
s,s1,s2:string;
i:byte;
begin
clrscr;
s1:='pavasaris';
s2:='pasara';
readln(s);
while pos(s1,s)>0 do begin
i:=pos(s1,s);
delete(s,i,9); // 9-это длина строки s1 в данном случае
insert(s2,s,i)
end;
writeln(s);
readkey
end.