Developing.ru

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

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

Вообще с такими задачами, тем боле, без каких-либо наработок - в РМЗ.
Задача-проще некуда:
[syntax='Delphi']
var
S,SB:string;
P:integer;

const
Src='pavasaris';
Dst='vasara';
L=Length(Src);

begin
readln(S);
P:=Pos(Src,S);
while P>0 do
begin
SB:=Copy(S,P,Length(S)-P+1);
Delete(SB,1,L);
Delete(S,P,Length(S)-P+1);
S:=S+Dst+SB;
P:=Pos(Src,S);
end;
writeln(S);
readln;
end.
[/syntax]

а зачем было длину в константе объявлять ?

Шоб было. Можно еще попробовать сократить - для данного конкретного случая