Разработка алгоритмов и программ с использованием методов внутренней сортировки

var a:array[0..100] of integer;
    n,i,j,b:integer;
begin
write('Введите размер массива т 2 до 100 n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=2*i;
  write(a[i]:4);
 end;
writeln;
a[0]:=2*n+1;
for j:=2 to n do
 begin
  i:=j;
  while a[i]>a[i-1] do
   begin
    b:=a[i];
    a[i]:=a[i-1];
    a[i-1]:=b;
    i:=i-1;
   end;
 end;
writeln('Сортировка по убыванию методом вставки');
for i:=1  to n do
write(a[i]:4)
end.

uses CRT;
var k,s,p:integer;
    c:char;
begin
textbackground(0);
textcolor(7);
clrscr;
repeat
write('Введите трехзначное число k=');
readln(k);
until(abs(k)<1000);
s:=0;
p:=1;
while k>0 do
 begin
  s:=s+(k mod 10);
  p:=p*(k mod 10);
  k:=k div 10;
 end;
repeat
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
writeln('Что вывести?');
writeln('Spase-сумму цифр');
writeln('Esc-произведение цифр');
writeln('другое - выход');
c:=readkey;
clrscr;
case c of
#32:begin  //вместо Enter пробел
    window(10,10,23,11);
    textbackground(2);
    textcolor(12);
    clrscr;
    write('Сумма цифр=',s);
    readln
    end;
#27:begin
    window(41,10,61,11);
    textbackground(6);
    textcolor(14);
    clrscr;
    write('Произведение цифр=',p);
    readln
    end;
else if not(c in ['0'..'9',#13,#27,#32]) then exit;
end;
until not(c in ['0'..'9',#13,#27,#32]);
end.