Перемешивание сортировка

var
   a1,a2,c:integer;
 
 
   randomize;
   i:=1 to 10 do
   begin
   a1:=random(arrayLenght);
   a2:=random(arrayLenght);
   c:=myarray[a1];
   mayarray[a1]:=myarray[a2];
   myarray[a2]:=c
   end.

uses crt;
var
 i,a1,a2,c:integer;
 begin
 randomize;
 for i:=1 to 10 do
 a1:=random(10);
 a2:=random(10);
 c:=a1;
 a1:=a2;
 a2:=c;
  writeln(a1);
  writeln(a2);
  writeln(c);
  readln;
 end.

uses crt;
var
  i,j,x,tmp : real;
  s,e: integer;
begin;
 for i:=s to e-1 do
  if X[i]>X[i+1] then
   begin
    tmp:=X[i];
    X[i]:=X[i+1];
    X[i+1]:=tmp;
   end;
 for i:=e downto s+1 do
  if X[i]<x [i-1] then
   begin
    tmp:=X[i];
    X[i]:=X[i-1];
    X[i-1]:=tmp;
   end;
  s:= s+1;
  e:= e-1;
end.

uses crt;
var a:array[1..100] of integer;
    n,i,k,x,j,d : integer;
begin
clrscr;
randomize;
write('количество элементов массива ');
readln(n);
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i],' ');
 end;
writeln;
d:=1; i:=0;
for k:=n-1 downto 1 do { k - количество сравниваемых пар }
 begin
  i:=i+d;
  for j:=1 to k do
   begin
    if (A[i]-A[i+d])*d>0 then
    {меняем местами соседние элементы}
     begin
      x:=a[i];
      a[i]:=a[i+d];
      a[i+d]:=x;
     end;
    i:=i+d;
   end;
  d:=-d;
 {меняем направление движения на противоположное}
 end;
writeln('Сортировка:');
for i:=1 to n do write(A[i],' '); {упорядоченный массив}
readln
end.