Программа не запускается

[lialia]

Здравствуйте,помогите если не сложно,вот программа (метод пузырька),компилятор проверил вроде все правильно,а она просто не запускается,почему?

const
  n=10;
type
  MyArr=array[1..n]of integer;
var
  a:MyArr;
  i:integer;
 
procedure Puz(var a:MyArr);
var
  i,j,temp:integer;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
     if a[i]<a[j] then
     begin
       temp:=a[i];
       a[i]:=a[j];
       a[j]:=temp
     end;
end;
 
begin
  writeln('Исходный массив:');
  for i:=1 to N do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln;
  Puz(a);
  writeln('Новый массив:');
  for i:=1 to n do
    write(a[i],' ');
  writeln
end.

[ViktorR]

У меня FPC. Эта программа работает.
А если просто перезагрузить компилятор?



Как-то так ...

[spinogryz_ua]

Запустил у себя - всё работает.
Каким компилятором пользуетесь?
Может у вас просто закрыто окно вывода?

[lialia]

пишет Ошибка при связи во Free pascal

[Sciv]

Почитайте эту тему, может поможет

[Poma][a]

Нажмите Alt + F5 или добавьте в конце программы ReadLn, может поможет