помогите пожалуйста с информатикой, очень нужно...)
Дан текст. Слова в тексте разделены одним или несколькими пробелами. Написать программу, выводящую все слова в алфавитном порядке.

спасибо огромное)

var s,s1:string;    a:array[1..100] of string;    n,i,j,k:byte;beginwriteln('Введите текст из слов, разделенных пробелами');readln(s);s:=' '+s+' ';n:=length(s);i:=2;k:=0;while i<=n doif (s[i]<>' ')and (s[i-1]=' ') thenbegin  k:=k+1;  j:=i;  s1:='';  while (j<=n) and (s[j]<>' ') do    begin    s1:=s1+s[j];    j:=j+1;   end;  a[k]:=s1; i:=i+length(s1); endelse i:=i+1;for i:=1 to k-1 dofor j:=i+1 to k doif a[i]>a[j] then begin  s1:=a[i];  a[i]:=a[j];  a[j]:=s1 end;writeln('Слова текста в алфавитном порядке:');for i:=1 to k dowriteln(a[i]);end.