Файлы в паскале

[kitty]

Заполнить файл последовательного доступа целыми числами, полученными с помощью генератора случайных чисел...
Получить в файле g те компоненты файла f, которые являются четными...

Помогите написать программу или объясните как делать...пожалуйста

[Vedrus]

До чего сами додумались?

[WOLFak]

я так понял надо в один файл кинуть числа random а после в другой записать четные из них))))???)))

[МаксимNEWProgramm]

ребята такие задачи стыдно не уметь решать!вы хотябы указали сколько
элементов надо получить - (допустим надо до 10).

Program Forum;
uses crt,dos;
var f,g:text;a,s1,b,s2:string;x:longint;
begin clrscr;
assign(f,'c:\out1.txt');rewrite(f);randomize;
for x:=1 to 10 do
if x<10 then write(f,random(20)+1,' ')else write(f,random(20)+1);
close(f);reset(f);
assign(g,'out2.txt');rewrite(g);
while not eof(f) do
begin
  read(f,x);
  if x mod 2=0 then write(g,x,' ');
end;
readkey;
end.

[WOLFak]

var
 i,j,n:longint;
begin
 randomize;
 assign(input,'1.txt'); rewrite(input);
 assign(output,'2.txt'); rewrite(output);
 for i:=1 to 40 do
  begin
   n:=random(9999);
   writeln(input,n);
   if n mod 2 = 0 then
    writeln(output,n);
  end;
  close(input);
  close(output);
 end.