Ввод минимум 5 фамилий и сортировка их по алфавиту pascal

Предыдущий
вопрос Следующий
вопрос

program SortLastNames;

var
lastNames: array[1..5] of string;
i, j: integer;
temp: string;

begin
writeln('Введите 5 фамилий:');
for i := 1 to 5 do
readln(lastNames[i]);

// Сортировка фамилий по алфавиту
for i := 1 to 4 do
for j := i + 1 to 5 do
if lastNames[i] > lastNames[j] then
begin
temp := lastNames[i];
lastNames[i] := lastNames[j];
lastNames[j] := temp;
end;

writeln('Отсортированные фамилии:');
for i := 1 to 5 do
writeln(lastNames[i]);
end.