Дан символьный файл F. Найти самое короткое слово среди слов, первая буква которых "а".(turbo pascal)

Писал на PascalABC.NET, но постарался как можно ближе к Turbo сделать. Если не заработает - пишите, исправим:)

var
  f    : text;
  i    : integer;
  s, j: string;

begin
  Assign(f, in.txt);
  Reset(f);
  while not EOF(f) do
  begin
     readln(f, s);
     for i := 1 to length(s) do
      if ((s[i] = a) and ((length(s) < length(j)) or (j = ))) then
        j := s;
  end;
  writeln(j);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.