DECLARE
TYPE T_tabelaNatpisa IS TABLE OF VARCHAR(40) INDEX BY BINARY_INTEGER;
brojac INTEGER:=0;
in_char CHAR;
indikator BOOLEAN;
resenje VARCHAR(20):='';
duzina INTEGER;
tabela T_tabelaNatpisa;
i BINARY_INTEGER;
BEGIN
tabela(1):='Structured Query Language';
tabela(2):=' eXtensible Markup Language';
tabela(3):='eXtensible Markup Language';
tabela(4):='Hyper TEXT MarKup Language';
i:=tabela.first;
WHILE i<=tabela.last LOOP
  indikator:=TRUE;
  resenje:='';
  duzina := LENGTH(tabela(i));
  WHILE (brojac <= duzina) LOOP
    in_char := SUBSTR(tabela(i), brojac, 1);
    IF (indikator=TRUE AND in_char>='A' AND in_char<'Z') THEN
      resenje:=resenje|| in_char;
      indikator:=FALSE;
    END IF;
    IF (in_char=' ') THEN
      indikator:=TRUE;
    END IF;
    brojac:=brojac+1;
  END LOOP;
  brojac:=0;
  DBMS_OUTPUT.PUT_line(tabela(i) || ' ==  ' || resenje);
  i:=tabela.next(i);
END LOOP;
END;