Подсчитать количество пустых строк в файле

uses crt;
var f:text;
    i:byte;
    nf,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
i:=0;
while not eof(f) do
 begin
  readln(f,s);
  if s='' then i:=i+1;
 end;
close(f);
write('Количество пустых строк=',i);
readln
end.

uses crt;
var n,i:word;
    f:boolean;
begin
clrscr;
repeat
write('Введите целое положительное число не более 33333 n=');
readln(n);
until(n>0)and(n<=33333);
if n=1 then f:=false
else
 begin
  f:=true;
  for i:=2 to round(sqrt(n)) do
  if n mod i=0 then
   begin
    f:=false;
    break;
   end;
 end;
if f then write('Простое')
else write('Не простое');
readln
end.