Сформировать при помощи генератора псевдослучайных чисел линейный целочисленный массив A[20], таким образом, что бы элементы массива принадлежали отрезку [-50, 50]. Выполнить в нём линейный поиск введенного с клавиатуры элемента. Отсортировать массив определённым методом в соответствии с вариантом (см. таблицу). Выполнить бинарный поиск элемента — Pascal(Паскаль)

program gener;
uses crt;
const n=20;
var A:array[1..n] of integer;
i,b,t,j,k:integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(100)-50;
for i:=1 to n do
writeln(A[i]);

//poisk elementa
writeln('Vvedite poisk elementa');
readln(b);
i := 1;
while (a[i] <> b) And (i < 21) do
  inc(i);
if i < 21 then
  writeln('Элемент найден ',i)
else
  writeln('Элемент не найден');
//sortirovka
for i := 1 to 19 do
  begin
    t := i;
    for j := i + 1 to 20 do
      if a[t] < a[j] then
        t := j;
    if t <> i then
      begin
        k := a[i];
        a[i] := a[t];
        a[t] := k;
      end;
  end;

readkey;
end.