Pascal. Методы сортировок одномерного массива

[yoor]

Реализовать программно решение задачи с учетом следующих требований:
1. Использование подпрограмм обязательно.
2. метод и вид сортировки (по убыванию\возрастанию) запросить у пользователя

Задача:

Написать программу для сортировки только отрицательных элементов массива.

Пример: 13 -7 4 -6 -9 -1 5 7 -> -1 -4 -6 -7 -9 13 5 7

[newerow1989]

type tArr=array of integer;

procedure Sort(var p:tArr;vid:char);
var i,j,k,z:integer;
    d:boolean;
begin
   k:=0;
   For i:=Low(p) to High(p) do
      If p[i]<0 then
      begin
         z:=p[i];
         For j:=i downto k+1 do
            p[j]:=p[j-1];
         p[k]:=z;
         k:=k+1;
      end;
   If vid='u' then
      Repeat
         d:=false;
         For i:=Low(p)+1 to k-1 do
            If p[i-1]<p[i] then
            begin
               d:=true;
               z:=p[i];
               p[i]:=p[i-1];
               p[i-1]:=z;
            end;
      Until not d;
   If vid='v' then
      Repeat
         d:=false;
         For i:=Low(p)+1 to k-1 do
            If p[i-1]>p[i] then
            begin
               d:=true;
               z:=p[i];
               p[i]:=p[i-1];
               p[i-1]:=z;
            end;
      Until not d;
end;

var p:tArr;
    i,l:integer;
    vid:char;
begin
   Randomize;
   l:=5+Random(10);
   SetLength(p,l);
   For i:=0 to l-1 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Writeln('vid sort: u - ubyvanie');
   Writeln('          v - vozrastanie');
   Write('vid sort: ');Readln(vid);
   Sort(p,vid);
   For i:=0 to l-1 do
      Write(p[i]:2,'  ');
   Writeln;
   Readln;
end.

[Аватар]

метод и вид сортировки (по убыванию\возрастанию) запросить у пользователя

С видом понятно. Что имеется в виду под методом? Их (алгоритмов сортировки) не один и не два

[newerow1989]

Пусть автор уточняет

[yoor]

Сообщение от Аватар

С видом понятно. Что имеется в виду под методом? Их (алгоритмов сортировки) не один и не два

Их 3: выбор, обмен и вставка