Динамические массивы в pascal

[deryck]

у меня проблема с программой:
Type
IntArray = Array of LongInt;
Function GetDigits (n: LongInt): IntArray;
var
x: IntArray;
begin
while(n<>0) do
begin
SetLength(x, Length(x)+1);
x[Length (x)-1]:= n Mod 10;
n:= n div 10;
end;
GetDigits := x
end;
Function Krasota (x: IntArray): Boolean;
var
t, res, k: integer;
begin
t:=Length (x);
k:=0;
for i:=2 to t do
begin
If (x[i-1]=x[i]) then
begin
k:=1;
end;
end;
Krasota:=(k = 0);
end;
var
n, i, k res: Integer;
a: IntArray;
begin
readln(n);
k:=0;
i:=1;
While (k<>n) do
begin
If (Krasota (GetDigits (i)) then
begin
res:=i;
inc(k);
end;
inc(i);
end;
writeln(res);
readln;
end.
выдает следующие ошибки:
1. в строке "IntArray = Array of LongInt; ошибка 92:" Предполагается "[" или "("
2. в строке " Function GetDigits (n: LongInt): IntArray;" Ошибка 34: Ошибочный тип результата функции
Объясните пожалуйста как правильно описать динамический массив, и можно ли в результате работы функции указывать тип динамического массива. (программу желательно написать с использованием функций)
Вот условие:
Назовем число красивым если в его записи каждая цифра встречается один раз. Так ,например, число 312 красивое, а 999 - нет. Напишите программу которая находит К-атое по величине условие. число k вводится с клавиатуры. (в самом решении могут быть ошибки, но важно поянть две указанных выше)