Определите, есть или нет в данном слове все буквы слова «гига» — Pascal(Паскаль)

var
  s: string;
  kol1, kol2, kol3, i: integer;
 
begin
  kol1 := 0;
  kol2 := 0;
  kol3 := 0;
  readln(s);
  for i := 1 to length(s) do 
  begin
    if s[i] = 'г' then
      inc(kol1);
    if s[i] = 'и' then
      inc(kol2);
    if s[i] = 'а' then
      inc(kol3);
  end;
  if (kol1 <> 0) and (kol2 <> 0) and (kol3 <> 0) then 
    writeln('можно составить слово')
  else
    writeln('букв не хватает');
end.