Паскаль! Файл!

[Ириска_92]

Написать программу которая определяет сколько символов z содержится в файле символов 'a.txt'

[Alex11223]

while not eof(f) do
   begin
      read(f, a);
      if (a='z') then c:=c+1;
   end;

f - файловая переменная, a - char, c - integer.

[Son Of Pain]

Эх )

var f:file;
count:integer;
c:char;
begin
  count:=0;
  assign(f, 'a.txt');
  reset(f, 1);
  while not eof(f) do begin
    blockread(f, c, 1);
    if c='z' then inc(count);
  end;

  writeln(count);

  readln;
  end.

Не компилировал.