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

varc:char;fc,sc:integer;beginwhile 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.