chcialabym posortowac alfabetycznie nazwiska osob zapisanych w rekordzie.. ponizej kod źródłowy procedury pobieranie danych.. co zrobic zeby program w "lista osob" wypisywal posortowane juz nazwiska? (caly program opiera sie tylko na rekordach)
procedure uzupelnianie;
var z:char;
i,k:integer;
begin
assign(osoby,'ewelina.txt');
reset(osoby);
seek(osoby,filesize(osoby));
i:=filesize(osoby)+1;
repeat
writeln('Osoba ',i);
writeln;
with dane do
begin
write('Podaj imie: ');
readln(imie);
write('Podaj nazwisko: ');
readln(nazwisko);
write('Podaj ulice: ');
readln(ulica);
write('Podaj numer domu: ');
readln(nr_domu);
write('Podaj numer mieszkania: ');
readln(nr_mieszk);
write('Podaj miejscowosc: ');
readln(miejsc);
write('Podaj kod pocztowy: ');
readln(kod);
end;
write(osoby,dane);
writeln;
i:=i+1;
write('Czy chcesz zakonczyc dodawanie osob do ksiazki? (t/n)');
readln(z);
writeln('-----------------------------------------------------');
until (z='t') or (z='T');
close(osoby);
clrscr;
end;