Создать одномерный массив,используя датчик случайных чисел и вывести его на экран (randomize)

const n=11;
var
Mas:array [1..n] of integer;
i:integer;
Begin
Randomize;
For i:=1 to n do
Mas[i]:=random (100);
clrscr;
Writeln('vivod');
FOr i:=1 to n do
Begin
Write(' ',Mas[i]);
End;
Writeln;.....

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;

const n=10;
var
    Mas,num:array [1..n] of integer;
    i,j,x,k:integer;
Procedure swap(var a,b:integer);
    var t:integer;
    begin
        t:=a;
        a:=b;
        b:=t;
    end;
Begin
    Randomize;
    writeln('Массив До сортировки');
    write('Индексы:  ':10);
    For i:=1 to n do
        begin
            write(i:4);
            Mas[i]:=random (30);
            num[i]:=i;
        end;
    Writeln;
    write('Элементы: ':10);
    For i:=1 to n do
    Begin
        Write(Mas[i]:4);
    End;
    Writeln;    
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if mas[i]>mas[j] then
                begin
                    swap(mas[i],mas[j]);
                    swap(num[i],num[j]);
                end;
    writeln;
    writeln('Массив после сортировки');
    write('Индексы:  ':10);
    for i:= 1 to N do write(num[i]:4);
    writeln;
    write('Элементы: ':10);
    for i:= 1 to N do write(mas[i]:4);
    readln;
end.