Помощь с программой(Pascal) Дан символьный файл f Подсчитать число вхождений в файл сочетаний "ab"

var f : file of char; k : word; c1, c2 : char;
begin
assign(f, 'filename.dat');
reset(f);
k := 0; c2 := #0;
while not eof(f) do
begin
c1 := c2;
read(f, c2);
if (c1 = 'a') and (c2 = 'b') then inc(k);
end;
close(f);
writeln(k);
end.