Помогите написать программу на паскале: даны 2 текстовых файла. определить в каком файле больше запятых

Var f1:text;

f2:text;

s1, s2:string;

k1, k2:integer;

begin;

assign (f1,'f1. txt');

reset (f1);

while not Eof (f1) do

read (f1, s1);

close (f1);

assign (f2,'f2. txt');

reset (f2);

while not Eof (f2) do

read (f2, s2);

close (f2);

while pos (',', s1) 0 do

begin;

delete (s1, pos (',', s1),1);

inc (k1);

end;

while pos (',', s2) 0 do

begin;

delete (s2, pos (',', s2),1);

inc (k2);

end;

if k1>k2 then writeln ('В первом');

if k2>k1 then writeln ('Во втором');

if k2=k1 then writeln ('Равно');

end.