Помогите решить задачу на замену.Вроде бы сделал все правильно, но замены по условию не происходит
Заменить в ведённом слове «римский» слово «рим» на «мир»
Выдаёт ошибку при компиляции программы и три буквы не заменяет
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 |