Типизированный файл массивов

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,b: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//сдвигаем начало массива на 1 вправо, стираем элемент
    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)-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;
readln
end.