Выстроить новобранцев по убыванию роста и отобрать K человек начиная с M-го по росту

var
a:array[1..1000] of longint;
K,M,n,x,b,i,j,g:longint;
begin
read(K,M);
read(n);
for i:=1 to n do
read(a[i]);
read(K,M);
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if a[i]<a[j] then begin
x:=a[i]; 
a[i]:=a[j]; 
a[j]:=x;
end;
end;
end;
for i:=1 to K do
ТУТ СТУПОР. НЕ ЗНАЮ КАК ДАЛЬШЕ!!!!!!!!!!! :cry:

uses crt;
var
otryad:array[0..9] of integer;
otobr:array[0..9] of integer;
K,k1,M,i,q,temp:integer;
flag:boolean;
begin
Randomize;
write('Boyci:');
for i:=0 to 9 do begin
otryad[i]:=random(30)+160;
write(otryad[i]:4);
end;
 
repeat
flag:=false;
 
for i:=0 to 8 do begin
if otryad[i]<otryad[i+1] then begin
flag:=true;
temp:=otryad[i];
otryad[i]:=otryad[i+1];
otryad[i+1]:=temp;
end;
end;
until (flag=false);
 
writeln;
write('Perestroeni:');
for i:=0 to 9 do begin
write(otryad[i]:4);
end;
 
writeln;
write('Otobrat K:');
readln(k);
write('Nachinaya s :');
readln(m);
k1:=k-1;
m:=m-1;//massiv nachinaetsya ot 0..9
q:=0;
for i:=0 to 9 do begin
if (m<i+1) and (k>0) then begin
otobr[q]:=otryad[i];
q:=q+1;
k:=k-1;
end;
end;
 
writeln;
write('Otobrani:');
for i:=0 to k1 do begin
write(otobr[i]:4);
end;
 
end.

var
a:array[1..1000] of longint;
K,M,n,x,b,i,j,g:longint;
begin
read(n);
for i:=1 to n do read(a[i]);
write('k,m:');
read(K,M);
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
end;
end;
 
writeln;
write('Postroeni:');
for i:=1 to n do begin
write(a[i]:4);
end;
 
writeln;
write('Otobrani:');
for i:=1 to n do begin
if (i>=m) and (k>0) then begin
write(a[i]:4);
k:=k-1;
end;
end;
 
end.

uses crt;
var a:array[1..100] of byte;
   n,i,j,K,M,x:integer;
begin
randomize;
repeat
write('Введите количество новобранцев от 1 до 100 n=');
read(n);
until n in [1..100];
for i:=1 to n do
a[i]:=150+random(50);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Новобранцы по убыванию роста');
for i:=1 to n do
write(a[i]:4);
writeln;
repeat
write('Номер первого новобранца от 1 до ',n,' M=');
read(M);
until M in [1..n];
repeat
write('Введите количество отобранных новобранцев от 1 до ',n-M+1,' K=');
read(K);
until K in [1..n-M+1];
writeln('Отобранные новобранцы');
for i:=M to M+K-1 do
write(a[i]:4)
end.