Сортировка пузырьком.Возрастание

var 
    str,f,st:string;
    A:array[1..100] of string;
    B:array[1..100] of integer;
    nach,pr:byte;
    c,m,max,l:integer;
begin
    writeln('Введите строку: ');read(st);
        str:=st+' ';
         pr:=1;
          nach:=1;
          l:=1;
           c:=0;
           
    while pr<=length(str) do begin
           if str[pr]=' ' then begin
           f:=copy(str,nach,pr-nach);
           A[pr]:=f;
           B[pr]:=length(f);
           writeln(A[pr],'-----',B[pr]);
           nach:=pr+1;
           c:=c+1;
    end;
     inc(pr);
   end;
   for m:=1 to c do
   if B[m]>B[m+1] then begin
   max:=B[m];
   B[m]:=B[m+1];
   B[m+1]:=max;
   end;
   writeln;
  writeln('Массив после сортировки пузырьковым методом: ');
  for l:=1 to c do 
    write(B[m],' ');
  
    end.

For k := 1 To n-1 Do
For i := 1 To n-1 Do
If X[i] > X[i+1] Then
 Begin
  A:=X[i];
  X[i]:=X[i+1];
  X[i+1]:=A
 End;

var st,f:string;
    a:array[1..100] of string;
    c,i,j:byte;
begin
writeln('Введите строку из слов, разделенных пробелом');
readln(st);
c:=0;
i:=1;
while i<=length(st) do
if(st[i]<>' ')and((i=1)or(st[i-1]=' '))then //новое слово
 begin
  c:=c+1;
  a[c]:='';
  j:=i;
  while (j<=length(st))and(st[j]<>' ')do
   begin
    a[c]:=a[c]+st[j];
    j:=j+1;
   end;
  i:=i+length(a[c]);
 end
else i:=i+1;
writeln;
writeln('Массив после сортировки пузырьковым методом: ');
for j:=1 to c-1 do
for i:=1 to c-1 do
if a[i]>a[i+1] then
 begin
  f:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=f
 end;
for i:=1 to c do
write(a[i],' ')
end.

var i,st,str,max:string;
A:array[1..100] of string;
B:array[1..100] of integer;
c,n,k:integer;
 
begin
writeln('Введите строку: ');read(st);
i:=st+' ';
c:=0;
n:=1;
 
k:=1;
while k<=length(i) do begin
if i[k]=' ' then begin
c:=c+1;
str:=copy(i,n,k-1);
A[c]:=str;
B[c]:=length(str);
writeln(A[c],'--------------',B[c]);
n:=k+n;
end;
k:=k+1;
end;
writeln('Слов в массиве: ',c);
writeln;
writeln('Массив после сортировки пузырьковым методом: ');
for n:=1 to c-1 do
 for k:=1 to c-1 do
 if B[k]>B[k+1] then begin
    max:=A[k];
    A[k]:=A[k+1];
    A[k+1]:=max;
    end;
    For k:=1 to c do 
write(A[k],' ')
end.