Дан символьный файл 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.