Pascal ABC.net Строковый тип данных string

[C_i_K_a_D_a]

Помогите пожалуйста! Я новичок (не судите строго ) Работать с символьными строками только учусь . Нужно написать программу ,которая выводит в алфавитном порядке три введенных пользователем имени.


Важно: Программу писал не я ,а нашел в интернете.
Не могу понять , как это работает? Именно вот эта часть:

for i :=1 to 3-1 do
    for j := i+1 to 3 do
        if a[i]  > a[j] then
           begin
               s :=a[i];
               a[i] :=a[j];
               a[j] :=s;
           end;

Сама программа:

Program Stroki_alfavit;
var 
    a :array[1..100] of string;
    i , j :integer;
    s :string;
begin
    for i :=1 to 3 do
        readln(a[i]);
        writeln('-------------');
        
         
for i :=1 to 3-1 do
    for j := i+1 to 3 do
        if a[i]  > a[j] then
           begin
               s :=a[i];
               a[i] :=a[j];
               a[j] :=s;
           end;
           
for i :=1 to 3 do
    writeln(a[i]);
end.

Может как-нибудь по-другому можно составить?

[Plague]

Вся программа

begin
  ReadArrString(3).Sorted.Println
end.

[C_i_K_a_D_a]

Спасибо! Как можно в виде циклов написать?
Что значит " arr " , "Sorted" ?