Вычеркните из заданного слова все буквы «а» — Pascal(Паскаль)

uses crt;
var st:string;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 while pos('a',st)>0 do delete(st,pos('a',st),1);
 writeln(st);
 readln;
end.

uses crt;
var
   n:string;
   i:integer;
begin
clrscr;
write('Введите строку=');
readln(n);
for i:=1 to length(n) do
 if (n[i]='a') then delete(n,i,1);
writeln('Результат');
write(n);
readln
end.