Ввести предложение и проверить, все ли круглые скобки закрыты — Pascal(Паскаль)

Program h;

var
  i: integer;
  iz, io: integer;
  s: string;

begin
  write('Vvedite PREDLOJENIE: ');
  readln(s);

  iz := 0;
  io := 0;

  for i := 1 to length(s) do
  begin
    if s[i] = '(' then
      inc(iz);
    if s[i] = ')' then
      inc(io);
  end;

  if iz = io then
    writeln('Skobki zakryty!')
  else
    writeln('Skobki NE zakryty!');

  readln;

end.