Организуйте массив, содержащий 15 различных целых чисел

Program masiv;
uses crt;
const n=15;
type mas=array[1..n] of integer;
var a:mas;
i,j,k:integer;
begin
clrscr;
for i:=1 to n do
begin

uses crt;
const n=15;
type mas=array[1..n] of integer;
procedure sort(var a:mas;k1,k2:byte);
var i,j:byte;
    x:integer;
begin
for i:=k1 to k2-1 do
for j:=i+1 to k2 do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
var a:mas;
    m,i,j,x:integer;
    f:boolean;
begin
clrscr;
randomize;
writeln('Исходный массив:');
m:=1;
a[1]:=-n+random(2*n);
write(a[1]:4);
for i:=2 to n do
 begin
  repeat
   f:=false;
   x:=random(2*n)-n;
   for j:=1 to m do
   if a[j]=x then f:=true;
  until f=false;
  a[i]:=x;
  m:=m+1;
  write(a[i]:4);
 end;
writeln;
Sort(a,1,n div 3);
Sort(a,n div 3+1,2*n div 3);
Sort(a,2*n div 3+1,n);
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
readln
end.

uses CRT;
var
a: array[1..15] of integer;
j,k,i: integer;
check: boolean;
begin
clrscr;
check:=true;
for i:=1 to 15 do
readln(a[i]);
while check=true do
begin
check:=false;
for i:=1 to 4 do
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
check:=true
end;
end;
check:=true;
while check=true do
begin
check:=false;
for i:=5 to 9 do
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
check:=true
end;
end;
check:=true;
while check=true do
begin
check:=false;
for i:=10 to 14 do
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
check:=true
end;
end;
for i:=1 to 15 do
writeln(a[i]);
 
end.