Файлы, строки. Паскаль

[Safary]

Написала прогу не могу понять, почему не работает( Почему то выводит в файл неверное кол-во слов. Задание, нати в файле слова, состоящие не более чем из 4-х символов и подсчитать их кол-во.

var
st:string;
k,i,m:integer;
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
k:=0;
while eof(input)=false do
begin
while eoln(input)=false do
begin
read(st);
i:=0;
while pos(' ',st)<>0 do
begin
if (pos(' ',st)-1<=4)and(pos(' ',st)<>1) then k:=k+1;
delete(st,1,pos(' ',st));
if i=0 then
begin
st:=st+' ';
i:=1;
end;
end;
end;
readln;
end;
writeln(k);
close(input);
close(output);

end.

[alex_fcsm]

var
ch:char;
k,i,m:integer;
input,output:text;
begin
assign(input,'c:\input.txt');
reset(input);
assign(output,'c:\output.txt');
rewrite(output);
k:=0;i:=0;
while eof(input)=false do
begin
read(input,ch);
inc(i);
if ch=' ' then begin
                if i<=5 then inc(k);
                i:=0;
               end;
end;
if i<=4 then inc(k);
writeln(output,k);
close(input);
close(output);

end.

[Safary]

Все равно неправильно считает( слов у меня из 4-x букв 5, а в файле записывается, что 9(

[alex_fcsm]

А какую последовательность указываете в файле?

[Safary]

hey good morning children give me a pen take some beer
без точек, запятых и всяких др. знаков.

[alex_fcsm]

Сообщение от Safary

hey good morning children give me a pen take some beer
без точек, запятых и всяких др. знаков.

И каков правильный ответ?

Задание, найти в файле слова, состоящие не более чем из 4-х символов и подсчитать их кол-во.

Не более значит 1,2,3,4.

var ch:char;
    k,i,m:integer;
    input,output:text;
begin
assign(input,'c:\input.txt');
reset(input);
assign(output,'c:\output.txt');
rewrite(output);
k:=0;i:=0;
while eof(input)=false do
begin
read(input,ch);
if (ord(UPCASE(ch))>=65)and(ord(UPCASE(ch))<=90) then  inc(i)
else
    begin
      if (i<=4)and(i>0) then inc(k);
      i:=0;
    end;
end;
if (i<=4)and(i>0) then inc(k);
writeln(output,k);
close(input);
close(output);
end.

[Safary]

дико извиняюсь %) меня ещё перекрывает от этих программ) почему то именно ща я вбила себе в голову что он должен находить слова только из 4-х букв) извиняюсь, что отняла время)))))