Замена букв в строке выдает ошибку

program zamena;uses crt;
 var s:string;//строка в кот. нужно заменить буквы
      i:integer;//номер буквы в строке которую меняем
      c,c1:char; //буквы с которую меняем с1 на которую
begin
 s:='в растут деравья';//ну такую строку взял
 c:='a';//какую меняем
 c1:='b';//на какую меняем
 if c<>c1 then begin
     i:=pos(c,s);
   while i<>0 do begin
      delete(s,i,1);
      insert(s,i,c1);//здесь вылазит ошибка incompatible type for arg no.
                          //got "char", expected "longint"  
      i:=pos(c,s);   
   end;{while}
  end;{if c<>c1}
end.

program zamena;uses crt;
 var s:string;//строка в кот. нужно заменить буквы
      i:integer;//номер буквы в строке которую меняем
      c,c1:char; //буквы с которую меняем с1 на которую
begin
 s:='в растут деравья';//ну такую строку взял
 writeln(s);
 c:='а';//какую меняем (нужно писать а в руской раскладке)
 c1:='b';//на какую меняем
 for i:=1 to length(s) do
 if s[i]=c then s[i]:=c1;
 // а insert правильно пишется так  insert(c1,s,i);
 write(s)
end.