Вводится последовательность латинских букв, признаком конца которой является пробел. Напечатать эту последовательность, упорядоченную по алфавиту — Pascal(Паскаль)

uses crt;
var
c:array [1..255] of char;
k,j,i:byte;
x:char;
begin
 clrscr;
 i:=1;
 while c[i]<>#32 do
  begin
  i:=i+1;
  c[i]:=readkey;
  clrscr;
  if c[i]=#32 then exit;
  for j:=2 to i do
   begin
    x:=c[j];
    k:=j-1;
    while (x<c[k]) and (k>0) do
    begin
     c[k+1]:=c[k];
     k:=k-1;
     end;
    c[k+1]:=x;
    end;
  for j:=2 to i do write(c[j]);
  end;
end.