hey can anyone find the bug in this program problem link

```
program TSORT;
var
t,x,N,y,temp:longint;
num:array[1..100000] of longint;
begin
read(t);
for x := 1 to t do
begin
readln(N);
num[x] := N;
end;
for x := 1 to t do
begin
for y := 1 to t do
begin
if num[y] > num[y+1] then
begin
temp := num[y];
num[y] := num[y+1];
num[y+1] := temp;
end;
end;
end;
for x := 2 to t+1 do
begin
writeln(num[x]);
end;
end.
```

i run it on codechef code,compile & run it ran there succefully with giving right results but when i submitted it encountered an runtime error.