procedure sort;
 var inner, outer, recordcount,pass:integer;
     sorted:boolean;

begin
fileview;
recordcount:=filesize(MyFile);
transferfiletoarray;
sorted := true;
      for pass := 1 to recordcount-1 do
         begin
              if ray[pass].Surname>ray[pass+1].Surname
              then begin
                      sorted := false;
                      temp := ray[pass];
                      ray[pass].Surname:=ray[pass+1].Surname;
                      ray[pass+1]:= temp;
                   end;
         end;
close(myfile)
end;