Помогите с паскалем

Помогите с паскалем
Есть документ INPUT.txt
Содержание :

8 15 5
4
4
4
4
4
4
4
4

Где 8- количество четверок
Нужно прочитать первую строку из файла, присвоив 3 значения разным переменным.

Например:
{Считывание данных из файла}
assign (INPUT,'INPUT.txt');
reset (INPUT);
readln (INPUT,x,a,b);
for b:=1 to x+2 do
begin
read(INPUT,c);
mas1:=c;
end;
close (INPUT);
{Считывание данных из файла закончено. Все четверки в массиве}

Такой код не работает. Что посоветуете?

  • Цикл for b:=1 to x+2 do работает от 1 до 10, а в файле только 8 четвёрок.
    И вообще, надо всегда проверять окончание файла функцией Eof(Input).
    Читайте:
    Песни о Паскале - азбука программиста