Сортировка массива

case (13 mod 10) of
0,5: writeln(‘Отсортировать массив по возрастанию методом вставки’);
1,6: writeln(‘Отсортировать массив по возрастанию методом обмена’);
2,7: writeln(‘Отсортировать массив по возрастанию методом выбора’);
3,8: writeln(‘Отсортировать массив по убыванию методом вставки’);
4: writeln(‘Отсортировать массив по убыванию методом обмена’);
else writeln(‘Отсортировать массив по убыванию методом обмена’);
end;

program Project111111231;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const n=5;
var a:array[1..n] of integer;
i,j,k,r:integer;
L:Boolean;
begin
writeln('Write 5 numbers through ENTER');
for i:=1 to n do
 readln(a[i]);
k:=1;
repeat
L:=false;
for i:=1 to n-k do
If a[i]<a[i+1]then
begin
r:=a[i];
a[i]:=a[i+1];
a[i+1]:=r;
L:=true;
end;
k:=k+1;
until (L = false);
writeln('Mas a:');
for i:=1 to n do
 write(a[i],', ');
readln;
end.

.........................
i:=2;
while i<n do
 begin
  x:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]>x) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=x;
  i:=i+1;
 end;
..............................................