Используя типизированные файлы. Создать файл,компоненты которого случайные числа. Подсчитать сколько из них превышает введенное число. Создать новый файл, содержащий такие числа — Pascal(Паскаль)

var
f,f1: file of integer;
k,i,n,kol:integer;
begin
  assign(f,'c:\a');
  assign(f1,'c:\asd');
  rewrite(f);
   writeln('Введите количество компонент');
   readln(n);
    for i:=1 to n do
     begin
       k:=random(170)-34;
       write(f,k);
     end;
   close(f);
   reset(f);
   writeln('Содержимое исходного файла');
     while not EOF(f) do
       begin
        read(f,k);
        write(k,' ');
       end;
   close(f);
   reset(f);
   rewrite(f1);
   writeln('Введите число');
   readln(n);
   kol:=0;
    while not EOF(f) do
      begin
        read(f,k);
          if k > n then
           begin
            kol:=kol+1;
            write(f1,k);
           end;
      end;
   close(f);
   close(f1);
   writeln('Количество чисел превыш ',n,' равно ',kol);
   reset(f1);
   writeln('Содержимое нового файла');
     while not EOF(f1) do
        begin
          read(f1,k);
          write(k,' ');
        end;
   close(f1);
end.