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

[Новичок]

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

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

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

[Новичок]

Я имел ввиду,вот если необходимо заменить допустим в слове "барабан" букву "б" на "а" то пользовался
if copy(x,1,1)='а' then copy(x,1,1)='б';
и всё прекрасно получалось, но а если приходилось осуществить замену нескольких букв то этот способ уже не проходил.

[Lapp]

Я имел ввиду,вот если необходимо заменить допустим в слове "барабан" букву "б" на "а" то пользовался
if copy(x,1,1)='а' then copy(x,1,1)='б';
и всё прекрасно получалось, но а если приходилось осуществить замену нескольких букв то этот способ уже не проходил.

Новичок, ты сильно заблуждаешься. Попробуй скомпилировать эту строку. Так нельзя делать. По крайней мере, в Паскале.