Паскаль.нужно вычислить количество абзацев в текстовом файле F1!

[olive]

нужно вычислить количество абзацев в текстовом файле F1!

[kuli4ok]

program a1;
var
f1: text;
k: integer; // кол-во абзацев
a: char;
begin
k:=0;
assign(f1, 'test1.txt');
reset(f1);
while eof(f1)=false do
begin
readln(f1, a);
if a=#9 then k:=k+1;
end;
close(f1);
end.

Если для оформления абзаца используется символ табуляции, то должно работать.