Pascal. Задача 6-4

Вывести в консоль строку из файла mylist.txt, номер которой вводит пользователь. Сообщить, если строки с таким номером нет.

Решение

var
  f : text;
  i, n : integer;
  s : string;
begin
  Assign(f, 'C:\PABCWork.NET\mylist.txt');
  Reset(f);
  Write('Введите номер строки: ');
  Readln(n);
  i := 0;
  while not Eof(f) do begin
    Readln(f, s);
    Inc(i);
    if i = n then begin
      Write(s);
      break;
    end;
  end;
  if i <> n then
    Writeln('Строки ', n, ' в файле нет');
  Close(f);
end.