составьте программу, меняющую в слове Х все сочетания "кар" на сочетание "акр"

Program asd;Var  n:string;  i:integer;Begin  Writeln('Введите предложение');  Readln(n);  For i:=1 to length(n) do    Begin    if ((n[i]='к') or (n[i]='К')) and ((n[i+1]='а') or (n[i]='А')) and ((n[i+2]='р') or (n[i]='Р'))      then begin      n[i]:='а'; n[i+1]:='к';      end;    End;  Writeln(n);End.

Жаль, что редактировать запретили

Программа во вложении.