Задачка на паскале. где ошибка?

[bboyedance]

Условия задачи: Запросить у пользователя фразу. В фразе убрать все буквы "а". ЗАпросить букву на которую заменить, вывести данную фразу.
uses crt;
var
i,j,len:integer;
str:string;
let:char;
begin
clrscr;
write('enter string: ');readln(str);
write('enter letter: ');readln(let);
len:=length(str);
i:=0;
j:=0;
for i:=1 to length(str) do
begin
if str='à' then str:=let;
end;
writeln(str);
readln();
end.

[JI_E_H_9I]

тут чука ошибок повторов и вообщем криво написано шас примерна выровняем
uses crt;
var
i,len:integer;
str:string;
let:char;
begin
clrscr;
write('enter string: ');readln(str);
write('enter letter: ');readln(let);
len:=length(str);
for i:=1 to len do
if str[i]='à' then begin
delete(str,i,1);
insert(str,i,let);
end;
writeln(str);
readln();
end.

вот примерна так только мог с форматом команд delete и insert напутать 100 лет за паскаль не садился так что проверь сам