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

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

Только учу паскаль, прошу помощи ! Вроде бы что то написал, но не уверен что правильно, в результате выводит только первые символы слов, помогите ! Нужно ввести строки, и отсортировать их в алфавитном порядке с использованием ASCII кода

Program chr;
Uses CRT;
Const n=5;
Type vec=array[1..n] of char;
Var  s1,s2             :vec;
 
x,y                 :char;
i,j                 :byte;
k                 :Boolean;
Begin
clrscr;
For i:=1 to n do
begin
  write('Слово ',i,'  ');
  readln(s1[i]);
 end;

Repeat
k:=True;
For i:=1 to n-1 do
for j:=1 to n-1 do
If ord (s1[i])> ord (s1[i+1]) Then
Begin
x:=s1[i];s1[i]:= s1[i+1];s1[i+1]:=x;
y:=s2[j];s2[j]:= s2[j+1];s2[j+1]:=y;
k:=False;
End;
Until k;
Writeln('Упорядоченная строка:');
For i:=1 to n do
Write(s1[i],' ');
ReadKey;
End.

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

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

For i:=1 to n do
begin
  write('Слово ',i,'  ');
  readln(s1[i]);
 end;

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

Переменная n представляет собой количество слов для сортировки.
Цикл for выполняется от 1 до n включительно.
На каждой итерации цикла выводится слово, которое будет сортироваться, и пробел.
Следующий элемент ввода считывается в переменную s1[i].
После завершения цикла все слова будут отсортированы в алфавитном порядке.