Mi a hiba az alábbi algoritmusban?

program buborekos;

uses crt;

var n,i,j,be:integer;

a: array [1..100] of integer;

begin

writeln('Hány számot akarok beolvasni?');

readln(n);

for i:=1 to n do

begin

writeln('Következö szám');

readln(a[i]);

end;

for i:=2 to n do begin

be:=a[i];

j:=i-1;

while (j>0) and a[j]>be) do begin

a[j+1]:=j-1;

end;

a[j+1]:=be;

end;

writeln(a[i],' ');

end.

A pascal nem talál hibát benne, engedi lefuttatni,de amikor le akarom futtatni, beolvassa az értékeket,utánna lefagy, semmilyen billentyüre nem reagál, viszont az X-nél egyszerüen le lehet zárni,tehát nem maga a Pascal fagy le,csak a benne futó program.