Отсортировать массив методом пузырька

Type
  comp=record
      imia:string[20];
      ves:integer;
      pr:string[20];
      end;
  var 
 fp: file of comp;
 
 j,i,n:integer;
  provodnik:string;
  a,b:comp;
 
 begin
 Assign(fp,'Data.dta');
 rewrite(fp);
 writeln('ââåäèòå êîëè÷åñòâî çàïèñåé');
 readln(n);
 for i:=1 to n do begin
 writeln('Ââåäèòå íàçâàíèå âåùåñòâà');
 readln(A.imia);
 writeln('óäåëüíûé âåñ');
 readln(A.ves);
 writeln('Ïðîâîäèìîñòü');
 readln(A.pr);
 write(fp,a);
 end;
 close(fp);
reset(fp);
 
provodnik:='ïðîâîäíèê';
 writeln('      äàííûå ñ÷èòàííûå ñ ôàéëà');
 writeln;
 writeln('Íàçâàíèå âåùåñòâà':18,'  Óäåëüíûé âåñ':18,'Ïðîâîäèìîñòü':18);
  while eof(fp)=false do begin
    read(fp,a);
 writeln(a.imia:18,a.ves:18,a.pr:18); 
    end;
  writeln;  
  seek(fp,0);
  for i := 1 to filesize(fp) do
    for j :=filesize(fp)-1 downto i do begin
    seek(fp,j-1);
    read(fp,a,b);
      if a.ves<b.ves then
       begin
        seek(fp,j-1);
        write(fp,b,a);
       end;
       end;
  writeln('      Óïîðÿäî÷åííûå äàííûå');
  writeln;
  reset(fp);
  writeln('Íàçâàíèå âåùåñòâà':18,'Óäåëüíûé âåñ':18,'Ïðîâîäèìîñòü':18);
  for i := 1 to filesize(fp) do begin
    read(fp,a);
    if a.pr=provodnik then 
    writeln(a.imia:18,a.ves:18,a.pr:18);
    end;
 
  close(fp);
end.