Разработать программу, подсчитывающую количество слов

while length(text)>0 do

a[i].slovo:=Copy(text,1,pos(' ',text)-1);
a[i].dlina:=length(a[i].slovo);

delete(s,1,pos(' ',text));
inc(i)

for i:=1 to n-1 do
                          for j:=1 to n-1 do
                          if a[j].dlina>a[j+1].dlina then
                          begin
                          x:=a[j];
                          a[j+1]:=a[j];
                          a[j]:=x;
                          end;

function Seps(As_Arg: Char): Boolean;
begin
     Seps := As_Arg in
      [#0..#$1F, ' ', '.', ',', '?', ':', ';', '(', ')', '/', '\'];
end;
 
function WordCount(CText: string): Longint;
var Ix: Word;
    Work_Count: Longint;
begin
     Work_Count := 0;
     Ix         := 1;
     while Ix <= Length(CText) do
     begin
          while (Ix <= Length(CText)) and (Seps(CText[Ix])) do
             Inc(Ix);
          if Ix <= Length(CText) then
          begin
               Inc(Work_Count);
               while (Ix <= Length(CText)) and (not Seps(CText[Ix])) do
                  Inc(Ix);
          end;
     end;
     WordCount := Work_Count;
end;
var s:string;
BEGIN
     writeln('Enter the text');
     readln(s);
     writeln;
     write('Count of words in the text:');
     writeln(WordCount(s));
     ReadLn;
END.
 
Тут конешно текст вводишь сам!
 
[size="1"][color="grey"][I]Добавлено через 6 минут[/I][/color][/size]
type t = record
    a: integer;
    b: string;
    end;

type t = record
a: integer;
b: string;
end;
var
  TextFile: Text;
  c: array[1..100] of string;
  d,e: integer;

c: array[1..100] of t

type t = record
a: integer;
b: string;
end;
var
  f: Text;
  c: array[1..100] of t;
  d,e: integer;
  s:string;
  begin
  Assign(f, 'text.txt');
  reset (f);

type t = record
a: integer;
b: string;
end;
var
  f: Text;
  c: array[1..100] of t;
  d,e: integer;
  s:string;
  begin
  Assign(f, 'text.txt');
  reset (f);
  while not eof (f) do begin
        read (f);
        write(f,s);
    end;

type t = record
a: integer;
b: string;
end;
var
f: Text;
c: array[1..100] of t;
d,e: integer;
s:string;
begin
Assign(f, 'text.txt');
reset (f);
while not eof (f) do begin
readln (f,s);
end;

type t = record
a: integer;
b: string;
end;
var
  f: Text;
  c: array[1..100] of t;
  d,e: integer;
  s:string;
  i:integer;
  begin
  Assign(f, 'text.txt');
  reset (f);
  while not eof (f) do begin
        readln (f,s);
   end;
   c[i].a:=Copy(s,1,pos(' ',s)-1);
   c[i].b:=length(c[i].slovo);