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

program slovo;
var
  a:string;
  i,j:integer;
  t:boolean;
begin
   writeln('BBEdi ctroky');
   readln(a);
   i:=1;
   j:=0;
   while i<=length(a) do
begin
   t:=false;
   while (a[i]<>' ') and (i<=length(a)) do
   begin
    t:=true;
    i:=i+1;
   end;
   if t then j:=j+1;
   i:=i+1;
end;
writeln('B ctpoke clov=',j);
readln;
end.