Дан файл целых чисел, содержащий четное количество элементов. Удалить из данного файла вторую половину элемент

program File30;
var
 f1,f2:text;
  El,len,i,n: integer;
    S: string;
 
begin
{формируем первый файл}
    Assign(f1, 'file1.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}
    Rewrite(f1);  {открываем файл для записи}
    writeln('введите кол-во строк');
    Readln(n) ;{определим количество вводимых строк}
    for i:=1 to n do
    begin
        writeln('Введите строки')  ;
        readln(s); {вводим с клавиатуры строки}
        writeln(f1,s); {записываем последовательно строки в файл}
    end;
    close(f1); {заканчиваем работу с первым файлом, теперь на диске существует файл с именем file1.txt,
    содержащий введенные нами строки. На этом программу можно закончить, работу с файлом можно продолжить в другой программе, в другое время, но мы продолжим}
 
     Reset(f1); {открываем первый файл для чтения}
    Assign(f2, 'file2.txt'); {устанавливаем связь второй файловой переменной с физическим файлом}
    Rewrite(f2); {открываем второй файл для записи}
 
    len:=0;
  while not eof(F1)do
   begin
    Read(F1,El);
    inc(len);
   end;
  Close(F1);
 
  Reset(F1);
 
  Assign(F2,'~'+S);
  ReWrite(F2);
 
  i:=1;
  while ((not eof(F1)) and (i<= (len div 2))) do
   begin
    Read(F1,El);
    Write(F2,El);
    inc(i);
   end;
 
  Close(F1);
  Writeln;
    Writeln('второй файл содержит строки:');
    Reset(f2); {открываем для чтения}
    While not eof(f2) do {пока не конец файда}
    Begin
        Readln(f2,s);{считывает очередную строку}
        Writeln(s); {выводит на  экран}
    End;
      Close(f2);
end.