Задача, которая определяет сколько строк в файле, запис. в него, имеют длину >15 символов и ... Опции

[Myasnik]

Короч, вот такая задача, прога запрашивает имя файла и определяет, сколько строк, записанных в этот фаил имеют длину > 15 символов и < 35 символов.

Имею вводить имя файла

вот короч как начал

uses Crt;
Type f=file of char;

Var
Name:string;
s,r:char;
a,i,b:integer;

Begin
ClrScr;
Randomize;
Writeln('Vvedite imya faila:');
readln(name);
assign(f,name);
Rewrite(f);
Writeln('Zapolnite file');
For i:=1 to 10 do
  begin
  Readln®;
  Write(f,r);
end;
Seek(f,0);

{тут уже не знаю как}
begin
a:=0;
b:=0;
while not Eof(f) do begin
read(f,s);
   case s of
'>15':Inc(a);
'<35':Inc(b);
end;
end;
   Writeln('In file');
   Writeln('dlina >15',a);
   writeln('dlina <35',b);
   end;
   readkey;
   end.

[APAL]

ИМХО: Полный бред!

1. Почему файл символьного типа??? Разве надо не строки считывать?
2. Причем тут оператор Case ? Мы ищем строки определенной длины или символы с определенными кодами ASCII ?

Такое ощущение что прогу "слепили из того что было".

Код

...
Var f : Text;
     N : Word;
    St : String;
...
While not EOF(f) do
Begin
  Readln(f,St);
  If Length(St)>15 and Length(St)<35 then Inc(N);
End;
...

Дальше сам достраивай конструкцию. И если не знаешь какие где операторы что делают - используй встроенную в TP справочную систему: ставишь курсор на первую букву оператора/функции/слова и нажимаешь Ctrl+F1 и читаешь что про это пишут...