This is a poor implementation of quicksort in pascal.
I will use it in the classroom for a demonstration in
sorting algorithms (divide and conquer).
I would appreciate if someone could help me a little with some improvements.

program quicksort;
uses wincrt;
       const max = 10;
       type table = array [1..max] of Integer;
       var x , i, downlimit , uplimit:integer;
       matrix:table;
       flag:boolean;
       procedure ReadArr( VAR matrix: table);
        begin
           for i := 1 to max do
           begin
                writeln('GIVE MATRIX[' , i , ']');
                readln(matrix[i]);
           end
       end;

        procedure writeArr( VAR matrix: table;downlimit , uplimit:integer);
        var i : integer;
        begin
           for i := downlimit to uplimit do
           begin
                writeln(' matrix[' , i , '] = ' , matrix[i]);
           end
       end;

       procedure swap(var a,b : integer);
                 var c:integer;
                 begin
                      c:=a;
                      a:=b;
                      b:=c;
                 end;

 procedure qsort(var matrix : table ; downlimit , uplimit: integer);
     var middle , i , j : integer;
     begin
       flag := false;
       i:= downlimit ;
       j:= uplimit;
       middle:= (downlimit + uplimit) div 2 ;
       x:= matrix[middle];
       writeln;
       writeln('i , j are : ' , i, '  '  , j );
       writeln('x is :' , x);
       writeln;
       while(i<j)  do
       begin

          while matrix[i] < x do  begin  writeln('matrix[' , i ,'] = ' , matrix[i] , ' < ' , x ); i:=i+1;  end;

          while matrix[j] > x do  begin  writeln('matrix[' , j , '] :' , matrix[j], ' > ' , x ); j:=j-1;  end;


            if( i< j) then
              begin
                 swap(matrix[i] , matrix[j]);
                 i:= i+1; j:= j-1;
                 flag := true;
              end;
               writeArr(matrix ,downlimit , uplimit );
               readln;
          end;
               if (uplimit > i)and (downlimit < j) and (flag = true) then
                   begin
                       qsort(matrix , i , uplimit);
                       qsort(matrix , downlimit , j);
                   end;

      end;  //  PROCEDURE


         begin //MAIN PROGRAM
          downlimit :=1;
          uplimit:=max;
          flag:= false;
          ReadArr(matrix);
          qsort(matrix , 1 , max) ;
          writeArr(matrix , downlimit , uplimit);
          readln;
         end.

Take a look in your delphi samples directory - theres one provided

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.