создать исходный файл целых положительных и отрицательных чисел

[погромистка]

Помогите с задачкой, люди добрые!

В процедуре S создать исходный файл целых положительных и отрицательных чисел a.dat
В процедуре R получить 2 новых файла из исходного таким образом: в файл a2.dat записать все положительные числа,
в файл a1.dat записать все отрицательные числа
В процедуре V прочитать новые файлы (выдать их на экран). В программе вызвать процедуры

[Dvoishnik]

procedure s();
begin 
//тело процедуры
end;
procedure r();
begin 
//тело процедуры
end;
procedure V();
begin 
//тело процедуры
end;
begin
s();
r();
v();
end;

[Serge_Bliznykov]

содержимое процедуры s может выглядеть таким образом:

procedure s(const filename:string; n : integer);
var f : file of integer;
     i,k:integer;
begin 
  Randomize;
  Assign(f, filename);
  Rewrite(f);
  for i:=1 to n do begin
     k:=-100+random(201); {получить случайное целое число [-100, 100] }
     write(f, k);
  end;
  close(f);
end;

[ChiliPalmer777]

привет, Погромистка.
А ты на всех форумах задания раздаешь?
На Кибере уже есть решение этой задачи, только поискать нужно.