Фаил

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
     fail=file of mas;
{чтение файла}
procedure ReadFile(var t:fail;k:byte);
var x:mas;
    i:byte;
begin
reset(t);
while not eof(t) do
 begin
  read(t,x);
  for i:=1 to k do
  write(x[i]:2,' ');
  writeln;
 end;
close(t);
writeln;
write('Press Enter...');
readln
end;
var f:fail;
    a:mas;
    m,n,i,j,k,p:byte;
    x:integer;
begin
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
repeat
write('Сколько компонент записать в файл(до ',nmax,') m=');
readln(m);
until m in [1..nmax];
repeat
write('Размер компонет-массивов(до ',nmax,') n=');
readln(n);
until n in [1..nmax];
for i:=1 to m do
 begin
  for j:=1 to n do
  a[j]:=random(10);
  write(f,a);
 end;
writeln('Содержание исходного файла F:');
ReadFile(f,n);{читаем файл}
{открываем}
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  k:=0;
  for j:=1 to n do {в каждой компоненте сдвигаем не ноли вперед}
  if a[j]<>0 then
   begin
    k:=k+1;
    x:=a[j];
    for p:=j downto k+1 do
    a[p]:=a[p-1];
    a[k]:=x;
   end;
  seek(f,i); {записываем измененные обратно}
  write(f,a);
 end;
close(f);
writeln('Файл после перестановки нулей в масивах:');
ReadFile(f,n);
reset(f);
k:=0;{считаем в файле количество компонент для удаления}
while not eof(f) do
 begin
  read(f,a);
  if a[n]<>0 then k:=k+1;
 end;
close(f);
reset(f);
if k=filesize(f)then
 begin
  write('Все компоненты удалены!');
  close(f);
 end
else if k=0 then
 begin
  write('Компонент для удаления нет!');
  close(f);
 end
else{если есть что удалять}
 begin
  k:=0;i:=0;
  while i<=filesize(f)-k-1 do{пока не дошли до конца файла минус сколько удалять}
   begin
    seek(f,i);
    read(f,a);
    if a[n]<>0 then{если последний в массиве ноль}
     begin
      k:=k+1;{считаем}
      for j:=i to filesize(f)-2 do{сдвигаем к нему хвост файла}
       begin
        seek(f,j+1);
        read(f,a);
        seek(f,j);
        write(f,a);
       end;
      end
     else i:=i+1;{иначе идем дальше}
   end;
  seek(f,filesize(f)-k);{встаем за последней оставленной компонетой}
  truncate(f);{обрезаем файл}
  close(f);
  writeln('Файл после удаления компонент без нолей:');
  ReadFile(f,n);
 end;
end.