infoarena informatica de performanta

imi poate spune cineva de ce pe o solutie ca asta iau TLE ? 

[cide]
program text1;
var c:string[1];
f,g:text;
nr,cuv,k:integer;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
nr:=0 ; cuv:=0 ; k:=1;
while not(eof(f)) do
begin
read(f,c);
if ((c>='A') and (c<='Z')) or ((c>='a') and (c<='z')) then
begin
k:=0;
nr:=nr+1;
end
else
if k=0 then
begin
cuv:=cuv+1;
k:=1;
end;
end;
write(g,nr div cuv); close(f); close(g);
end.