Паскаль. Рекурсия.

[Viwwna]

Задача такая:

type
reals = file of real;
var f : reals;
Напишите рекурсивную программу, которая печатает сначала все отрицательные элементы этого файла, а затем положи-тельные (в любом порядке).

Помогите решить.....

[Viwwna]

А как сделать, текстовый файл, что бы там сохранялись вещественные числа?
тип ставлю ms-dos. но после выполнения программы, файл становится пустым и выдается ошибка exitcode=(100)..................... .((((
т.е. вкратце: КАК СОЗДАТЬ ФАЙЛ ИСХОДНЫХ ДАННЫХ???

[Serge_Bliznykov]

т.е. вкратце: КАК СОЗДАТЬ ФАЙЛ ИСХОДНЫХ ДАННЫХ???

в данном случае (когда компонентами файла являются числа в формате REAL) единственно допустимый способ - только программно.
вот, например, программа, которая создаёт и заполняет файл file of real:

var f : file of real;
  i, N : integer;
  rOne : real; 
begin
  WriteLn('Программа создаст файл вещественных чисел KUKU.DAT');
  WriteLn('Введите количество чисел, которое будет в файле (>= 1):');
  Readln(N);
  if N<1 then begin WriteLn('столько нельзя!'); halt(100) end;
  Assign(f, 'KUKU.DAT');
  Rewrite(f);
  for i:=1 to N do begin
     Write(' введите ',i,'-е число из ',N, ':  ');
     ReadLn(rOne);
     Write(f, rOne);
  end;
  Close(f);
  WriteLn('файл успешно сформирован!');
  readln;
end.