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

[Новичок]

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

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

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.

[Lapp]

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

Тогда уж так:

const
  x: string= 'мирский';
begin
  Write(x)
end.

или так:

begin
  Write('мирский')
end.

Эти программы будут вести себя точно так же .

На самом же деле, я полагаю, в условии неточность. Вводится (причем, с клавы или из файла) не одно слово "римский", а текст, содержащий его (или не содержащий).