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

[4edder]

Вроде бы что то написал, в результате выводит только первые символы слов, помогите !
Нужно ввести строки, и отсортировать их в алфавитном порядке с использованием 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
Writeln(s1[i],' ');
ReadKey;
End.

[ZX Spectrum-128]

Вы вводите по одному символу и выводите, соответственно, тоже по одному. А со строками вы вообще не работаете.
Посмотрите, как делается сортировка строк:
http://www.programmersforum.ru/showthread.php?t=202679