Напишите функцию sisseastumine(),  при запуске которой происходит заполнение двух списков: абитуриенты[],   []. Количество элементов в списках ограничивается пользователем (либо оговаривается сколько людей надо опросить, либо в режиме online- данные вносятся пока не закончатся данные о людях После заполнения списков появляется меню с выбором действий:•  Узнать список поступивших в вуз людей(количество поступивших указывает пользователь);• Отобразить в алфавитном порядке список людей и их  ;• Найти n людей с худшими результатами;• Найти средний поступивших ;• Свой вариант.Для описания действий создайте необходимые функции​

Первое задание, программа задает массив, сортирует его, затем сравнивает элемент с последующем

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]=a[i+1] then
begin
writeln(a[i]);
writeln(a[i+1]);
end;
end.

Второе задание. Программа также сортирует и сравнивает элементы

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]<>a[i+1] then
begin
writeln(a[i]);
end;
end.