TURBO PASCAL:Учебное пособие. Терёхин В.В. - 111 стр.

         Readln(r. avtor);
         Write('введите название книги ');
         Readln(r. nazv);
         Write('введите количество страниц ');
         Readln(r.str) ;
         Write('введите год издания ');
         Readln(r. god) ;
         Write(bf, r);
     end;
  Close(bf);
end.
         Задача. В файле, компонентами которого являются
записи - точки плоскости (record х, у: real; end;), выбрать толь-
ко те, которые находятся в первой и третьей координатных
четвертях и записать их в другой файл. Вывести на экран раз-
меры первого и второго файлов.
program p48;
type
  points= record
                  х, у: real;
             end;
var
  fl, f2: file of points;
  p: points;
  s1, s2: String;
  i, nl, n2: Longlnt;
begin
  Write('введите имя исходного файла ');
  Readln(sl);
  Write('введите имя результирующего файла ');
  Readln(s2) ;
  Assign(fl,s1);{связываем файловые переменные}
  Assign(f2, s2); {с введенными именами файлов)
  Reset (fl); {первый файл открываем для чтения}
  Rewrite(f2); {а второй для записи}
                                                              111