Приведем текст измененной программы:
Program Pr3;
Var
K: File Of Integer; {Файловая переменная}
Nomer: Byte; {Номер, с которого начинается вывод}
FS:Integer; {Количество элементов в файле}
i: Integer; {Счетчик цикла}
Begin
{Связываем файловую переменную k с файлом DAN.DAT }
Assign(K,'DAN.DAT');
Reset(K); {Открываем файл для чтения}
FS:= FileSize(K);
Writeln('Количество элементов в файле: ',FS);
Write('Введите номер элемента, с которого нужно
начинать вывод (число от 1 до ',FS,'): ');
Readln(Nomer);
{Проверка введенного номера}
While Not ((Nomer>=1) And (Nomer<=FS)) Do
Begin
WriteLn('Заданный номер вне диапазона!');
Write('Введите номер элемента, с которого нужно
начинать вывод (число от 1 до ',FS,'): ');
Readln(Nomer);
End;
{Перемещаем указатель на заданное число}
Seek(K,Nomer-1);
Writeln('Числа из файла: ');
For i:=Nomer To FS Do
Begin
Readln(k,a); {Считываем текущее число}
Writeln(a); {Выводим его на экран}
End;
Close(k); {Закрываем файл}
End.
Текст этой программы можно взять здесь.