Сортировка массивов в порядке возрастания - Pascal ABC

Формулировка задачи:

Занесите информацию о десяти европейских странах в массивы n (название страны), k (численность населения), s (площадь страны). Выведите названия стран в порядке возрастания плотности их населения.

Решение задачи: «Сортировка массивов в порядке возрастания»

Листинг программы

Var N,i,j,ss,k : LongInt;
    r          : Real;
    sr         : String;
    S          : Array [1..100] Of String;
    p          : Array [1..100] Of Real;
 
Begin
write('Введите колличество стран: '); readln(N);
For i:=1 To N Do
  Begin
    write('Введите название страны: '); readln(S[i]);
    write('Введите численность населения: '); readln(k);
    write('Введиет площадь страны: '); readln(ss);
    p[i]:=ss/k;
  End;
For i:=1 To N Do
  For j:=1 To N-1 Do
    If p[j] < p[j+1] Then
      Begin
        r:=p[j]; p[j+1]:=p[j]; p[j]:=r;
        sr:=s[j]; s[j+1]:=s[j]; s[j]:=sr;
      End;
For i:=N DownTo 1 Do writeln('Страна: ',S[i]);
End.

Объяснение кода листинга программы

В начале кода объявляются переменные N, i, j, ss, k и r, которые будут использоваться для сортировки массивов. Также объявляются переменные sr и S, которые будут использоваться для хранения названий и численности населения стран соответственно.
Затем происходит чтение количества стран из ввода пользователя. Это число сохраняется в переменной N.
Далее идет цикл for, который выполняется N раз. Внутри этого цикла пользователь вводит название каждой страны, ее численность населения и площадь. Эти данные сохраняются в соответствующих массивах S, k и ss.
После завершения цикла для каждой страны выполняется второй цикл for, который проверяет, если текущий элемент массива p меньше следующего элемента, то происходит обмен значениями между этими элементами. Аналогично обмениваются значения в массивах s и r.
В конце выводится информация о каждой стране в массиве S.