Составьте программу удаления элементов одномерного массива

const
  n = 5;
var
  Matr: array[1..n, 1..n] of integer;
  i_min, j_min, i, j: byte;
  Chislo: integer;
begin
  randomize;
  i_min:=1; j_min:=1;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=random(20);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  write('Число: ');
  readln(Chislo);
  for i:=1 to n do
    for j:=1 to n do
      if (Matr[i, j] > Chislo) and (Matr[i, j] < Matr[i_min, j_min]) then
      begin
        i_min:=i;
        j_min:=j;
      end;
  writeln('Минимальный элемент, больший ', Chislo, ': ', Matr[i_min, j_min]);
end.

const
  n = 20;
var
  arrA, arrB: array[1..n] of integer;
  i, j: byte;
begin
  randomize;
  writeln('Массив Y: ');
  for i:=1 to n do
  begin
    arrA[i]:=random(20);
    write(arrA[i], ' ');
    if arrA[i] < (n div 2) then
    begin
      inc(j);
      arrB[j]:=arrA[i];
    end;
  end;
  writeln;
  writeln('Массив Х, состоящий из минимальных элементов массива Y: ');
  for i:=1 to j do
    write(arrB[i], ' ');
end.

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    max,i,j,n,m,jmin: integer;
 
begin
repeat
write('Êîëè÷åñòâî ñòðîê, íå áîëåå ',nmax,',n= ');
readln(n);
until n in [1..nmax];
repeat
write('Êîëè÷åñòâî ñòîëáöîâ, íå áîëåå ',nmax,',n= ');
readln(m);
until m in [1..nmax];
writeln('');
for i:=1 to n do
    for j:=1 to m do
        begin
        write('[a',i,',',j,']=');
        readln(a[i,j]);
        end;
write('Äàíà ìàòðèöà');
for i:=1 to (m*4-(12)) do
    write(' ');
writeln('Mèí. çíà÷åíèå ñòðîêè');
for i:=1 to n do
    begin
    jmin:=1;
    for j:=1 to m do
        begin
        write(a[i,j]:4);
        if a[i,j]<a[i,jmin] then jmin:=j;
        end;
    if i=1 then max:=a[i,jmin] else
       if max<a[i,jmin] then max:=a[i,jmin];
    writeln(a[i,jmin]:10);
    end;
writeln('Ìàêñèìàëüíîå èç ìèíèìàëüíûõ = ',max);
for i:=1 to n do
    for j:=1 to m do
        if a[i,j]=max then
           writeln('â ñòðîêå ',i,', â ñòðîëáöå ',j);
readkey
end.

const
  Max_Value = 20;
var
  Matr: array[1..Max_Value, 1..Max_Value] of integer;
  i_min, j_min, i, j: byte;
  Chislo, n, m: integer;
begin
  i_min:=1; j_min:=1;
  repeat
    write('N: ');
    readln(n);
    write('M: ');
    readln(m);
  until (n in [1..Max_Value]) and (m in [1..Max_Value]);
  writeln('Введите матрицу: ');
  for i:=1 to n do
  begin  
    for j:=1 to m do
    begin
      write('Matr[', i, ', ', j, '] = ');
      readln(Matr[i, j]);
    end;
  end;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(Matr[i, j]:4);
    writeln;
  end;
  write('Число: ');
  readln(Chislo);
  for i:=1 to n do
    for j:=1 to m do
      if (Matr[i, j] > Chislo) and (Matr[i, j] < Matr[i_min, j_min]) then
      begin
        i_min:=i;
        j_min:=j;
      end;
  writeln('Минимальный элемент, больший ', Chislo, ': ', Matr[i_min, j_min]);
end.

const
  Max_Value = 20;
var
  arrA, arrB: array[1..Max_Value] of integer;
  n: integer;
  i, j: byte;
begin
  repeat
    write('N: ');
    readln(n);
  until (n in [1..Max_Value]);
  writeln('Массив Y: ');
  for i:=1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arrA[i]);
    if arrA[i] < (n div 2) then
    begin
      inc(j);
      arrB[j]:=arrA[i];
    end;
  end;
  writeln;
  writeln('Массив Х, состоящий из минимальных элементов массива Y: ');
  for i:=1 to j do
    write(arrB[i], ' ');
end.

uses crt;
var i,j,k,n: integer;
    a,b: array [1..100] of integer;
begin
 clrscr;
 randomize;
 write('N: ');
 readln(n);
 for i:=1 to n do
  begin
   write('[', i,'] = ');
   readln(a[i]);
  end;
 writeln('Начальный массив: ');
 for i:=1 to n do
  write(a[i]:3);
  for i:=1 to n do
   if a[i]<>a[n] then
    begin
     inc(j);
     b[j]:=a[i];
    end;
 writeln;
 writeln('Полученный массив: ');
 for i:=1 to j do
  write(b[i]:3);
 readln;
end.

const
  maxSize=100;
type
  intVector=array[1..maxSize] of integer;
var
  a:intVector;
  i,j,buf,arrSize:integer;
begin
  repeat
    write('Array size, not greater than ',maxSize,'=');
    readln(arrSize);
  until arrSize in [1..maxSize];
  randomize;
  writeln('Input array');
  for i:=1 to arrSize do
    begin
      a[i]:=random(10);
      write(a[i]:4);
    end;
  writeln;
  buf:=a[arrSize];
  dec(arrSize);
  i:=1;
  while i<=arrSize do
    if a[i]=buf then
      begin
        for j:=i to arrSize-1 do
          a[j]:=a[j+1];
        dec(arrSize);
      end
    else
      inc(i);
  if arrSize<>0 then
    begin
      writeln('Output array');
      for i:=1 to arrSize do
        write(a[i]:4);
    end
  else
    writeln('All elements were deleted');
end.