Помогите написать программу на Free pascale пожалуйста
Известен номер группы первокурсников и список студентов из этой группы, по заданной фамилии студента определить занимается ли он в данной группе и под каким номером находится в списке группы
С использованием сортировки одномерных массивов

Считаем, что сначала вводится количество студентов, потом список студентов (по одному в строчке), потом фамилия нужного студентаvarss: string;s: array [1..100] of string;n, i, j: integer;beginreadln(n);for i := 1 to n doreadln(s[i]);for i := 1 to n -1 dofor j := 1 to n - 1 doif s[j] > s[j + 1] thenbeginss := s[j];s[j] := s[j + 1];s[j + 1] := ss;end;readln(ss);j := 0;for i := 1 to n doif s[i] = ss thenj := i;if j = 0 thenwriteln('NO')elsewriteln('YES ', j);end.