задача на замену Опции

[Новичок]

Здравствуйте!
Помогите решить задачу на замену.Вроде бы сделал все правильно, но замены по условию не происходит

Заменить в ведённом слове «римский» слово «рим» на «мир»
Выдаёт ошибку при компиляции программы и три буквы не заменяет

program f351;							
var x:string[10];						
i:integer; 							
begin 							
x:='римский';
for i:=1 to length(x)-2 do begin
if copy(x,1,3)='рим' then copy(x,1,3)='мир';
end;
for i:=1 to length(x) do
write (x[i]);
end.

М

Тэги! Lapp

[Lapp]

Выдаёт ошибку при компиляции программы и три буквы не заменяет

Гм. А как ьы ты хотел, чтоб оно работало?.. Ты посмотрел описание процедуры copy? И что вообще ты подразумевал под

copy(x,1,3)='мир'

- это присваивание или что?..
Да и баланс begin/end у тебя не соблюден.. Ладно, вот, короче, смотри.

var
  x: string;
  p:integer;
begin
  x:='Папа римский пошел погулять';
  p:=Pos('римский',x);
  if p>0 then begin
    Delete(x,p,3);
    Insert('мир',x,p)
  end;
  WriteLn (x);
end.