Помогите с кодом. Pascal

[максич]

7. Дана последовательность слов. Напечатать все слова в алфавитном порядке.

[Aleksandr H.]

Program HelloWorld(output);
type sArray = array [1..100] of string;
var 
arr:sArray;
count,i:byte;

procedure splitLine(s:string);
var i:byte;w:string;
begin
  w:='';
  if s[length(s)]<>' ' then s:=s+' ';
  for i:=1 to length(s) do
   if s[i] <>' ' then w:=w+s[i] 
   else
   if w<>'' then begin inc(count);arr[count]:=w;w:=''; end;
end;
procedure sortB;
var i,j:byte;s:string;
begin
 for i:=1 to count-1 do
  for j:=i+1 to count do
   if arr[i]>arr[j] then
    begin
     s:=arr[i];
     arr[i]:=arr[j];
     arr[j]:=s
    end;
end;
begin
  splitLine('Hello You Ugly Motherf**kers');
  sortB();
  for i:=1 to count do
   write(arr[i],' ');
   
end.

Program HelloWorld(output);
type sArray = array [1..100] of string;
var arr:sArray;
count,i:byte;

function splitLine(s:string):sArray;
var i:byte;w:string;
 a:sArray;
begin
  w:='';
  if s[length(s)]<>' ' then s:=s+' ';
  for i:=1 to length(s) do
   if s[i] <>' ' then w:=w+s[i] 
   else
   if w<>'' then begin inc(count);a[count]:=w;w:=''; end;
  splitLine:=a; 
end;
function sortA(a:sArray;n:byte):sArray;
var i,j:byte;s:string;
begin
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if a[i]<a[j] then
    begin
     s:=a[i];
     a[i]:=a[j];
     a[j]:=s
    end;
 sortA:=a
end;

begin
  arr:=sortA(splitLine('Hello You Ugly Motherf**kers'),count);
  for i:=1 to count do
   write(arr[i],' ');
end.