С клавиатуры последовательно вводятся символы. Признаком конца ввода является точка. Составить программу выбрасывания групп символов

program SKOBKI;
var c: char; i: integer;
begin
¦  i := 0; read (c);
¦  while c <> '.' do
¦    begin
¦     ¦  if c = '(' then i : = 1
¦     ¦           else if c = ')' then i := 0
¦     ¦               else if i = 0 then write (c);
¦     ¦  read (c);
¦     ¦     end;
end.