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

var f:file of integer;
    a,i,n1,cp,i1,ip,j,k:integer;
begin
assign(f,'fileF');
rewrite(f);
writeln('Введите целые числа, окончание ввода 0:');
repeat
read(a);
if a<>0 then write(f,a);
until a=0;
seek(f,0);
i1:=-1;
i:=0;//ищем 1 нечетное
while (i<filesize(f))and(i1=-1)do
 begin
  seek(f,i);
  read(f,a);
  if odd(a) then 
   begin
    n1:=a;
    i1:=i
   end
  else inc(i);
 end;
if i1=-1 then writeln('В файле нет нечетных чисел')
else writeln('Первое нечетное число=',n1,' его позиция в файле=',i1);
seek(f,0);//в начало файла
//ищем последнее четное с конца
ip:=-1;
i:=filesize(f)-1;
while (i>=0)and(ip=-1)do
 begin
  seek(f,i);
  read(f,a);
  if a mod 2=0 then 
   begin
    cp:=a;
    ip:=i
   end
  else dec(i);
 end;
if ip=-1 then writeln('В файле нет четных чисел')
else writeln('Последнее четное число=',cp,' его позиция в файле=',ip);
if abs(i1-ip)=1 then write('Первое нечетное и последнее черное рядом, удаления нет')
else if(i1>-1)and(ip>-1)then//если есть оба и не рядом, удаляем
 begin
  if ip<i1 then//если последнее раньше первого
   begin
    a:=ip;
    ip:=i1;//обменяем номера местами
    i1:=a;
   end; 
  k:=ip-i1-1;//количество элементов удалить
  seek(f,0);//возвращаемся в начало файла
  for i:=1 to k do{к раз}
  for j:=i1+1 to filesize(f)-2 do//сдвигаем конец файла к i1
   begin
    seek(f,j+1);
    read(f,a);
    seek(f,j);
    write(f,a);
   end;
  seek(f,filesize(f)-k);//встаем на к от конца файла
  truncate(f); //обрезаем файл
  seek(f,0);//опять в начало и читаем
  writeln('Удаление элементов между первым нечетным и последним четным:');
  while not eof(f) do
   begin
    read(f,a);
    write(a,' ');
   end;
 end;
close(f)
end.