Напишите программу, вычеркивающую из данного слова все буквы «а» (так, чтобы, например, из слова «заноза» получилось «зноз»). И ещё слово должно вводится в из файла — Pascal(Паскаль)

var
    s:string;
    i:integer;
begin
    writeln('Vvedite slovo');
    readln(s);
    for i:=length(s) downto 1 do
        if s[i]='a' then delete(s,pos('a',s),1);
    writeln(s);
end.