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

[Новичок]

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

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

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

[Archon]

Если замены такие простые, почему бы не сделать так:

var
	x: string[10];						
begin 							
	x := 'римский';
	x[1] := 'м';
	x[3] := 'р';
	Write(x);
end.

и соответственно

var
	x: string[10];						
begin 							
	x := 'барабан';
	x[1] := 'а';
	Write(x);
end.