Шпоры по МПиПА / Массивы / Сортировка / Сортировка методом прямого включения / Pascal / Исходник / easySort

Program easy_sort;
const
     max = 10000;
type myArray = array[0..max] of integer;
var dimension, i : integer;
    arr, sortArray : myArray;

function easySort( arr : myArray; length : integer ) : myArray;
var i, j, item : integer;
begin
     for i := 1 to length-1 do begin
         item := arr[i];
         j := i;
         while item < arr[j-1] do begin
               arr[j] := arr[j-1];
               j := j-1;
         end;
         arr[j] := item;
     end;
     easySort := arr;
end;

begin
     writeln('Easy Sort.');
     write('Enter array dimension: '); readln( dimension );
     write('Enter '); write( dimension ); write(' elements: ');
     for i := 0 to dimension-1 do
         read(arr[i]);
     sortArray := easySort( arr, dimension );
     write('Sorting array: ');
     for i := 0 to dimension-1 do begin
         write( sortArray[i] ); write(' '); end;
     writeln;
     writeln('Press any key to continue...');
     readln;
     readln;
end.