Program1.pas(13) : Встречено 'const', а ожидался оператор Почему ?

program C1;

VAR

s : string;

k, i, maxi : integer;

f : Text;

begin

Assign(f,'./24-2.txt');

Reset(f);

ReadLn(f, s);

Close(f);

k := 1;

maxi := 1;

const c1 := C;

const c2 := F;

for i := 2 to length(s) do

if (s[i] <> c1) and (s[i-1] <> c2) then begin

k:=k+1;

if k > maxi then maxi := k;

end

else

k := 1;

write (maxi);

end.