Question

Паскаль. в коде решения ошибка и поэтому сортировка не происходит, не дописан цикл, не понимаю как записать. условие - произвести сортировку списка студентов по фамилиям по алфавиту. type st=record f: string; end; var a: array[1..100] of st; g: string; i,j: integer; begin write('n'); readln(n); for i: = 1 to n do begin write('введите фамилии студентов'); read(a[i].f); end; g: ='а'; for i: =1 to n do if a[i].f[1]=g then (здесь нужно дописать еще цикл) begin writeln(a[i].f); end; end.