Организовать типизированный файл целых чисел состоящий из N компонент.

uses crt;
var f:file of integer;
    n,i,j,k,a,b:integer;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел записать в файл? n=');
readln(n);
for i:=1 to n do
 begin
  a:=-20+random(50);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
{будем удалять отрицательные}
seek(f,0);
k:=0;i:=0;
while i<=filesize(f)-2-k do{последнее число пока не проверяем, выйдем за файл}
 begin
  seek(f,i);
  read(f,a);
  if a<0 then
   begin
    k:=k+1; {считаем}
    for j:=i to filesize(f)-2 do{идем вперед}
     begin
      seek(f,j+1);{переставляем - сдвигаем - записи вверх на 1}
      read(f,b);
      seek(f,j);
      write(f,b);
     end
   end
  else i:=i+1;{если нет вперед}
 end;
seek(f,filesize(f)-1-k);{проверяем последнее, оно сдвинулась на к вверх}
read(f,a);
if a<0 then k:=k+1;
seek(f,filesize(f)-k);{встаем в последнее не удаленное число}
truncate(f);{обрезаем файл}
writeln('Удаление отрицательных чисел:');
if filesize(f)=0 then write('Отрицательных чисел в файле не было')
else
 begin
  seek(f,0);
  while not eof(f) do
   begin
    read(f,a);
    write(a:4);
   end;
 end;
close(f);
readln
end.