Курсовая работа: Разработка информационно-поисковой системы "Результаты соревнований" на языке программирования Паскаль

read(f,ch[i]);

close(f);

for i:=1 to n-1 do

for j:=i+1 to n do

if ch[i].fio>ch[j].fio then {сравниваем 2 строки}

begin

chi:=ch[i]; {проводим перестановку}

ch[i]:=ch[j];

ch[j]:=chi;

end;

rewrite(f);

for i:=1 to n do

write(f,ch[i]);

close(f);

end;

ifp=2 thenbegin{сортировка по полю возраст}

writeln ('vvedite imya sozdannogo faila');

readln(filename);

assign (f,filename);

reset(f);

for i:=1 to n do

read(f,ch[i]);

close(f);

for i:=1 to n-1 do

for j:=i+1 to n do

if ch[i].voz>ch[j].voz then

begin

chi:=ch[i];

ch[i]:=ch[j];