Задача, которая определяет сколько строк в файле, запис. в него, имеют длину >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.