Дано текстовый файл, вывести все строчки, что начинаются на латинскую a - Free Pascal

uses  Crt;
var   a:text;
      s:string;
begin
      ClrScr;
      Assign(a,'ABC.txt');
      Reset(a);
      While not Eof(a) do
       begin
         Readln(a,s);
         if s[1]='a'
          then Writeln(s);
       end;
      Close(a);
      ReadKey;
end.