Сортировка строк в алфавитном порядке с использованием 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.

uses crt;
const nmax=100;
var a:array[1..nmax] of char;
    i,n,j:integer;
    tmp:char;
begin
 repeat
  write('Êîë-ñòâî ñèìâîëîâ n=');
   readln(n);
 until n in [1..nmax];
 for i:=1 to n do
  begin
   a[i]:=chr(random(20)+65);
   write(a[i]:4);
  end;
  for i:=1 to n do
   begin
    tmp:=a[i];
    j:=i;
     while (j>1) and (tmp<a[j-1]) do
      begin
       a[j]:=a[j-1];
       dec(j);
      end;
     a[j]:=tmp;
   end;
 writeln;
  writeln('Ïîñëå ñîòèðîâêè :');
  for i:=1 to n do
   write(a[i]:4);
end.

readln(a[i])

uses crt;
const n=5;
var
s1:array[1..n] of char;
i,j,k:integer;
t:char;
begin
clrscr;
writeln('Введите ',n,' слов ');
for i:=1 to n do
 begin
  write('Слово ',i,'  ');
  readln(s1[i]);
 end;
 
  for i:=1 to n do
   begin
    t:=s1[i];
    j:=i;
    while (j>1) and (t<s1[j-1]) do
begin
 s1[j]:=s1[j-1];
 dec(j);
 end;
    s1[j]:=t;
    end;
  writeln;
  writeln('После сотировки :');
  for i:=1 to n do
   begin
   write(s1[i]:4);
end;
  readln;
  end.

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