Pit201

begin

assign ( infile, 'h:members.txt');

reset infile;

count:=0

while not eof(infile) do

begin

count:=count+1;

readln(infile, members[count].lname, members[count].fname ETC );

end;

close (infile)

total2bSorted := count;

BUBBLE SORT

for count := (total2bSorted-1) downto 1 do

for index := 1 to count do

if numbs[index] > numbers[index+1] then swap(procedure);

SWAP

var tempnumb : integer;

begin

tempnumber:= numbers[index+1];

numbs[index+1] := nums[index];

numbs[index] := tempnumb;

end;