[Страдалецъ]

Если предположить что на одну строку приходится одно значение, и поскольку читать мы можем только от начала к концу, то вижу такой вариант:

Код:

while not Eof(T)
do begin
    case Random(2)
    of 0: ReadLn(T);
        1: ReadLn(T, N);
    end;
    end;