Дан текстовый файл. Следует сохранить только те символы, за которыми следует буква А — Pascal(Паскаль)

var
    s,ss:string;
    i:integer;
begin
writeln('Строка');
readln(s);
ss:='';
  for i:=1 to length(s)-1 do
      if (s[i+1]='a') or (s[i+1]='A') then ss:=ss+s[i];
  writeln('Itog');
  writeln(ss);
end.