PROGRAM PR;
VAR str:array[1..100] of STRING;
a,b,n,i,m:byte;
f:text;
begin
writeln('vvedite kol-vo simvolov a');
readln(a);
writeln('vvedite kol-vo simvolov b');
readln(b);
aSSIGN(F,'C:\OLA.TXT');
RESET(F);
n:=1;
while not (eof(f)) do
begin
readln(f,str[n]);
end;
for i:=1 to length(str[i]) do
begin
m:=length(str[i]);
if (m>=a) and(m<=b) then n:=n+1
else writeln('takih strok net');
write(n);
readln;
close(f);
readln(n);
end;
end.
времени около часа,помогите пожалуйста