паскаль. типизированные файлы

[sowaa]

Созданы два типизированных файла, содержащих вещественные числа:
1) Удалить из второго файла все те числа, которые содержатся в первом.
2) Создать файл из чисел, которые содержатся и в первом и во втором файлах.
3) Сравнить длины файлов. В более длинном файле оставить столько же чисел, сколько в более коротком, а оставшиеся числа переписать в третий файл.


вот,я могу только создать типизированные файлы.

Код: Выделить всё

Var f,f1:file of integer;
    i,n,m,m1:integer;
Begin
   write('Введите кол-во элементов: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
     Begin
    write('Введите  элемент: ');
     readln(m);
      write(f,m);
     End;
    Close(f);
    writeln('Файл создан');
    readln;
    
    //////////
    write('f1__Введите кол-во элементов: ');readln(n);
    Assign(f1,'in1.dat');Rewrite(f1);
    For i:=1 to n do
     Begin
    write('Введите  элемент: ');
     readln(m1);
      write(f1,m1);
     End;
    Close(f1);
    writeln('Файл создан');
    readln;
    //////////
  end.