Программа на паскале

Question

Почему программа не выполняется правильно?

program no64;
const n=20;
var
 i,j,nmax,m:integer;
 a:array [1..n] of integer;
begin
 for i:=1 to n do
 begin
 randomize;
 a[i]:=random(20);
 write(a[i]:3);
 end;
 writeln();
 for i:=1 to (n-1) do
 begin
 nmax:=i;
 for j:=i+1 to n do
 if (a[j]>a[nmax]) then
 begin
 nmax:=j;
 m:=a[i];
 a[i]:=a[nmax];
 a[nmax]:=m;
 end;
 end;
 for i:=1 to n do
 write(a[i]:3);
 writeln();
end.

Rahman Janmurzaev · Accepted Answer

что должна вычислять программа? 
 
ааа. . вижу. . разные значение не генерятся да? 
 
сделай вот так 
 
....
a:array [1..n] of integer; 
begin 
randomize; 
for i:=1 to n do 
begin 
a[ i ]:=random(20); 
....
 
и будет тебе щасте

Андрей · Answer

Что именно Вас не удовлетворяет в результате? Кроме того конечно что Вы перед главным эндом (тот что с точкой) не поставили Readln(); или repeat until keypressed; для того чтобы иметь возможность увидеть результат выполнения программы.