Подсчет кол-ва строк в паскале Опции

[PUMA]

напишите программу которая в заданном файле подсчитывает кол-во строк,длина которых в символах находиться в заданных пользователем пределах(например,от 10 до 20)ювыведите на экран только эти строк файла.хххеелп

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.

времени около часа,помогите пожалуйста

Сообщение отредактировано: PUMA - 29.06.2010 13:06