Вывести на экран все трехзначные числа, которые можно получить из цифр данного числа - Pascal ABC

program z3;
 
label x;
var
  h: array[1..3]of integer;
  g: array[1..8]of string;
  a, i, j, k, q, w, e, ind : integer;
  st,st1: string;
 
begin
  Write('Введите трехзначное число: ');Readln(a);  
  if (a < 100) or (a > 999) then
  begin
    Writeln('Некореткное число!');
    goto x;
  end;
  ind:=1;// индекс чтобы не вставлять в место того числа которое уже добавленно
  h[1] := a div 100;
  h[2] := a div 10 mod 10;
  h[3] := a mod 10;  
  if (h[1]=h[2]) or (h[1]=h[3]) or (h[2]=h[3]) then 
    begin
      for i:=1 to 3 do 
        begin
          for j:=1 to 3 do
            begin
              for k:=1 to 3 do
                begin
                  st:=inttostr(h[i])+inttostr(h[j])+inttostr(h[k]);
                  e:=0;
                  for q:=1 to 8 do 
                    begin
                      if g[q]=st then inc(e);
                      if e=0 then 
                      begin
                        g[ind]:=st;// Выдает ошибку 
                        inc(ind);// индекс находиться в не границ массива 
                      end;
                    end;
                end;
            end;
        end;        
    end 
      else 
    if (h[1] <> h[2]) and (h[1] <> h[3]) and (h[2] <> h[3]) then
    for i := 1 to 3 do
        begin
            for j := 1 to 3 do
                begin
                    for k := 1 to 3 do
                        begin
                            write (h[i],h[j],h[k], ' ');
                        end;
                writeln;
                end;
        writeln;
        end;
  x: 
end.