Решите плиз: составить программу которая сортирует список…

Вот тебе от меня мой личный код pascal у меня было это задание и аж 2 петерки поставили а вот и код: Код Pascal123456789101112131415161718192021222324252627 type mass=array[1… 50] of string; var a: mass; i,j,n: integer; beginwrite ('Введите кол-во фамилий: '); readln (n); for i: =1 to n dobegin write ('Введите',i,'-ую фамилию: '); readln (a[i]); end; writeln ('Несортированный список: '); writeln; for i: =1 to n dowriteln (a[i]); for j: =1 to n dofor i: =1 to n doif ord (a[j][1])