Написать программу на паскале абс ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’h’ или ’h’

Var
c:char;
fc,sc:integer;
begin
while c <> '.' do
  begin
  read(c);
  if c = 'H' then
    inc(fc);
  if c = 'h' then
    inc(sc);
  end;
if fc > sc then
  writeln('H больше');
if fc < sc then
  writeln('h больше');
if fc = sc then
  writeln('Одинаково');
end.