while not eoln(f) do
write(g,c);
While not Eof(f) Do
Begin
ReadLn(f, c);
n:=-1;
While n<>0 Do
Begin
n:=Pos(s1, c);
If n>0 Then
Begin
Delete(c, n, Length(s1));
Insert(s2, c, n);
End;
WriteLn(g, c);
End;
End;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.