Пошаговый вывод результатов.

program sliyanie;
const
 n=8;
var a:array[1..n] of integer;
    k:integer;
function delenie(l,r:integer):integer;
 var i,j,b,c:integer;
 begin
  c:=a[r];
  i:=l-1;
  j:=r;
  repeat
    repeat
     dec(j);
    until (a[j]<=c) or (j=i+1);     writeln(c);
    repeat
     inc(i);
    until (a[i]>=c) or (i=j-1);
    b:=a[i];
    a[i]:=a[j];
    a[j]:=b;
  until i>=j;
  a[j]:=a[i];
  a[i]:=a[r];
  a[r]:=b;
  delenie:=i;
  writeln;
 end;
 
 procedure sl(l,t:integer);
 var i:integer;
 begin
  if l<t then
    begin
      i:=delenie(l,t);
      sl(l,i-1);
      sl(i+1,t);
    end;
 
 end;
begin
  writeln('vvedi massiv');
  for k:=1 to n do read(a[k]);
  sl(1,n);
  writeln;
  for k:=1 to n do
    write(a[k],' ');
end.

program sliyanie;
const
 n=8;
var a:array[1..n] of integer;
    k:integer;
function delenie(l,r:integer):integer;
 var i,j,b,c:integer;
 begin
  c:=a[r];
  i:=l-1;
  j:=r;
  repeat
    repeat
     dec(j);
    until (a[j]<=c) or (j=i+1);     writeln(c);
    repeat
     inc(i);
    until (a[i]>=c) or (i=j-1);
    b:=a[i];
    a[i]:=a[j];
    a[j]:=b;
  until i>=j;
  a[j]:=a[i];
  a[i]:=a[r];
  a[r]:=b;
  delenie:=i;
  writeln;
 end;
 
 procedure sl(l,t:integer);
 var i:integer;
 begin
  if l<t then
    begin
      i:=delenie(l,t);
      sl(l,i-1);
      sl(i+1,t);
    end;
 
 end;
begin
  writeln('vvedi massiv');
  for k:=1 to n do read(a[k]);
  sl(1,n);
  writeln;
   for k:=1 to n do begin
                                write(k:2,a[k]:n);
                                readln;
                                end;
end.

program sliyanie;
const
 n=8;
var a:array[1..n] of integer;
    k:integer;
function delenie(l,r:integer):integer;
 var i,j,b,c:integer;
 begin
  c:=a[r];
  i:=l-1;
  j:=r;
  repeat
    repeat
     dec(j);
    until (a[j]<=c) or (j=i+1);     writeln(c);
    repeat
     inc(i);
    until (a[i]>=c) or (i=j-1);
    b:=a[i];
    a[i]:=a[j];
    a[j]:=b;
  until i>=j;
  a[j]:=a[i];
  a[i]:=a[r];
  a[r]:=b;
  delenie:=i;
  writeln;
 end;
 
 procedure sl(l,t:integer);
 var i:integer;
 begin
  if l<t then
    begin
      i:=delenie(l,t);
      sl(l,i-1);
      sl(i+1,t);
    end;
 
 end;
begin
  writeln('vvedi massiv');
  for k:=1 to n do begin
  writeln('a[',k,']= ');
  readln(a[k]);
  end;
  sl(1,n);
  writeln;
  for k:=1 to n do
    writeln('a[',k,']= ',a[k]);
end.