Poganko

Помогите исправить программу на паскале:
Нужно чтобы программа искала в словах символы a и заменяла их на d


Program Str;
Const n=6;
var st: string[10];
X: array [1..n] of string [10];
dl:integer;
l: integer;
i: byte;
begin
writeln ('obrabotka dannyh strokovogo tipa');
writeln ('slova iz 5-10 simvolov');
writeln ('chislo slov=');
for i:=1 to n do
begin
writeln (i,' -oe slovo');
readln (X[i]);
end;
writeln ('vvedennye slova');
for i:=1 to n do writeln (i, '-oe slovo = ',X[i]);
writeln ('dlina slova l ='); read (l);
for i:=1 to n do if length (X[i]) >l then
begin
delete (X[i],1,1);
insert ('D',X[i],1);
end;
for i:=1 to n do write (X[i],' ');
readln; readln;
end.