Работа со строками

uses crt;
var  s:string;
     k,i,j:byte;
     s1:array[1..100] of string;
     x:string;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
k:=0;{размер массива}
i:=1;
while i<=length(s) do {пока не конец строки}
if((i=1)or(s[i-1]=' '))and(s[i]<>' ')then {если не пробел, а перед пробел или первый}
 begin
  k:=k+1; {считаем}
  s1[k]:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do{пока не пробел и не конец строки}
   begin
    s1[k]:=s1[k]+s[j];{составляем слово}
    j:=j+1;
   end;
  i:=i+length(s1[k]);{пробел, перескакиваем через слово}
 end
else i:=i+1;{если не слово, вперед}
for i:=1 to k-1 do{сортировка по возрастанию длины слов}
for j:=i+1 to k do
if length(s1[i])>length(s1[j]) then
 begin
  x:=s1[i];
  s1[i]:=s1[j];
  s1[j]:=x;
 end;
writeln('Слова в порядке возрастания длины:');
for i:=1 to k do
if i<k then write(s1[i],' ')
else write(s1[i]);
readln
end.