Удалить символы "a"

program Lab5;
var
x:array[1..4] of string[9];
idx,n:byte;
begin
writeln('Программа обработки данных строкового типа.');
writeln('После каждого слова нажимайте Enter.');
writeln;
writeln('Введите 4 слова из 5-9 символов.');
for idx:=1 to 4 do
begin
    write(idx, '-е слово:');
    readln(x[idx]); 
end;
    write('Введите длину слов, которые нужно изменить:');
    readln(n);
    for idx:=1 to 4 do begin
    if length(x[idx])=n then
    begin
        while pos('a', x[idx]) = 0 do
        delete(x[idx], pos('a', x[idx]), 1);
        write(x[idx],' ');
    end;
end;
readln;
writeln('Для выхода из программы нажмите Enter.');
readln;
end.

uses crt;
var
a:array[1..4] of string;
i,n,k,d,p:integer;
s:string;
begin
 writeln('Ïðîãðàììà îáðàáîòêè äàííûõ ñòðîêîâîãî òèïà.');
 writeln('Ïîñëå êàæäîãî ñëîâà íàæèìàéòå Enter.');
 writeln;
 writeln('Ââåäèòå 4 ñëîâà èç 5-9 ñèìâîëîâ.');
 for i:=1 to 4 do
  begin
   write(i, '-å ñëîâî:');
    readln(a[i]);
  end;
 write('Ââåäèòå äëèíó ñëîâ, êîòîðûå íóæíî èçìåíèòü:');
  readln(n);
 for i:=1 to 4 do
  begin
   if length(a[i])=n then
    begin
     d:=0;
     s:=a[i];
     for p:=1 to 3 do
      for k:=1 to length(s) do
       if s[k]='à' then delete(s,k,1);
     a[i]:=s;
    end;
    write(a[i]);
  end;
 writeln('Äëÿ âûõîäà èç ïðîãðàììû íàæìèòå Enter.');
 readln;
end.