hey i am trying to sort a file of records by name. Im trying to use the bubble sort but all the code i ve found is with the use of arrays. Any idea pls.
Procedure Bubble_Sort;
var
a : array [1..20] of string;
i,j : integer;
t : string;
begin
clrscr;
create_client;
for i:= 1 to Filesize(C) do
Read(C,recc);
a:= recc.name;
for i := 1 to Filesize(C) do
for j := 1 to Filesize(C)-1 do
if a [j] > a[j+1] then
begin
t := a[j];
a[j] := a[j+1];
a[j+1] := t;
end;
writeln;
for i := 1 to filesize(C) do writeln(a);
readln;
end;