Przejście do następnej linii

Witam
Mam taki mały problem z czytaniem danych z pliku a mianowicie z jednym aspektem tego czytania. Otóż w pliku mam dwie liczby w dwóch liniach i chciałbym je wczytać do tablic po jednej cyfrze. I o ile pierwszą wczytuję bez problemu to druga pętla się nie wykonuje i tym samym nie wczytuję kolejnej liczby. Jest to zapewne spowodowane tym, że program nie przechodzi w ogóle do następnej linii zatem warunek drugiej pętli jest niespełniony. I tutaj moje pytanie: jak przejść w pliku do następnej linii. Jeśli w miejsce gwiazdki (*) wstawię polecenie readln(plik) ewentualnie readln(plik, zmienna_string) to program wywala błąd exitcode = 201.

while eoln(plik)=false do
  begin
    read(plik, a[i]);
    inc(i);
  end;

{*}

i:=1;
while eoln(plik)=false do
  begin
    read(plik, b[i]);
    inc(i);
  end;

var
  s: string;
begin
  while not eof(plik) do
  begin
    readln(plik, s);
    a[i] := StrToInt(s);
    inc(i);
  end;
end;