Пишет: Ошибка. Программка завершена из за переполнения стека. Паскаль. Помогите,

Пишет: Ошибка. Программка завершена из за переполнения стека. Паскаль. Помогите, пожалуйста.
вот программка:
program Alisa_5;
const N=10;
var i: integer;
A: array [ 1 .. n] of integer;
procedure Sort (first,last: integer);
var x, y, m, c: integer;
begin
if firstgt;=last then exit;
m:=a[(first+last) div 2];
x:=first;
y:=last;
repeat
while A[x] while A[y]gt;m do y:=y-1;
if Xlt;=Y then
begin
c:=A[y];
A[y]:=A[x];
A[x]:= c;
X:=X+1;
Y:=Y-1;
Sort( First, x);
Sort (Last, y);
end;
until xgt;y
end;
begin
writeln('Массив: ');
For i:=1 to n do
begin
A[i]:= random(100);
write( A[i], ' , ');
end;
sort (1,n);
For i:= 1 to n do
write( A[i], ' ; ')
end.