Здравствуйте, Lena0111!

Смотрите код:
[code lang=pascal]var
a:char;
b:array[1..21]of integer;
c:string;
d:integer;
f:file of char;
begin
assign(f,'200515.txt');
reset(f);
while not eof(f) do
begin
a:=' ';
c:='';
while(a=' ')and not eof(f) do read(f,a);
while(a<>' ')and not eof(f) do
begin
c:=c+a;
read(f,a);
end;
if length(c)in[1..20]then inc(b[length(c)]) else inc(b[21]);
end;
close(f);
for d:=1 to 20 do writeln(d:3,b[d]:5);
writeln('Error:=',b[21]);
end.[/code]
Удвчи!