Упорядочить диапазон элементов массива - Turbo Pascal - Ответ 3658844

uses crt;
const n=40;
      k1=9;
      k2=30;
var a:array[1..n] of integer;
    i,j,k,x:integer;
begin
clrscr;
randomize;
writeln('Исход*ый м*ссив:');
for i:=1 to n do
a[i]:=100+random(900);{от 100 до 999}
for i:=1 to k1-1 do {выведем до 9}
write(a[i]:4);
writeln;
for i:=k1 to k2 do {с 9 по 30}
write(a[i]:4);
writeln;
for i:=k2+1 to n do{с 31 по 40}
write(a[i]:4);
writeln;
k:=0;{проверим есть ли что сортировать}
for i:=k1 to k2 do
if a[i] mod 10=3 then k:=k+1;
if k<2 then
 begin
  write('Нет элементов для сортировки');
  readln;
  exit
 end;
i:=k1;{если есть, ищем первый элемент для сортировки}
while (i<=k2)and(a[i] mod 10<>3) do i:=i+1;
k:=i;{будем выбирать элементы с последней цифрой=3}
j:=i+1;
while j<=k2 do
 begin
  if(a[j] mod 10=3)and(a[k] mod 10=3)and(a[j]<a[k]) then k:=j;{нашли}
  j:=j+1;
 end;
x:=a[i];
a[i]:=a[k];{и обменивать их}
a[k]:=x;
i:=i+1;
writeln('Сортировка элементов с последней цифрой=3 на интервале ',k1,'-',k2);
for i:=1 to k1-1 do
write(a[i]:4);
writeln;
for i:=k1 to k2 do
write(a[i]:4);
writeln;
for i:=k2+1 to n do
write(a[i]:4);
readln
end.