Программа

USES mod_077;
PROCEDURE MakeList(var F:text); { Процедура создания списка }
  Begin
    Randomize;   { Инициализация генератора случайных чисел }
    Rewrite(F);  { Открытие файла для записи }
    while Random<0.99 do WriteLn(F,Random(6)*1.:5:2);{ Цикл формирования файла }
    Close(F)     { Закрытие файла }
  End;
VAR F:text;   { Указатель на файл }
    A:real;   { Сравниваемое число }
    L:ElementRef;  { Список }
BEGIN
  WriteLn; { Пропуск строки }
  Assign(F,'INPUT.TXT'); { Связывание файловой переменной с файлом }
  MakeList(F); { Создание списка }
  Reset(F); { Открытие файла для чтения }
  ReadList(F,L); { Чтение списка }
  Close(F); { Закрытие файла }
  Write('Введите число '); { Вывод приглашения }
  ReadLn(A); { Ввод сравниваемого значения }
  Filter(A,L); { Обработка списка }
  Assign(F,'OUTPUT.TXT'); { Связывание файловой переменной с файлом }
  Rewrite(F); { Открытие файла для записи }
  WriteList(F,L); { Вывод списка в файл }
  Close(F); { Закрытие файла }
  DisposerList(L) { Уничтожение списка }
END.