Задания и порядок выполнения работы: 1.
Выполнить перевод чисел
а) из 10-ой с/св 2-ую систему счисления: 165; 541; 600; 720; 43,15; 234,99.
б) из 2-ой в 10-ую систему счисления: 1101012; 110111012; 11000101 12; 1001001,1112
в) из 2-ой с/с в 8-ую ,16-ую с/с: 100101110; 1000001112; 1110010112; 10110010112; 1100110010112;
10101,101012; 111,0112
г) из 10-ой с/с в 8-ую, 16-ую с/с: 69; 73; 113; 203; 351; 641; 478,99; 555,555
д) из 8-ой с/св 10-ую с/с: 353 ; 653 ; 2158 ; 3273 ; 5328; 7513; 45,4548
е) из 16-ой с/св 10-ую с/c: D816; 1AE16; E5716; 8E516; FАD16; AFF,6A716​

Const 
  N = 15;

var
  mas:array[1..15] of integer;
  i, max1, max2, min, c, d:integer;

begin
  c:=-1;
  max1:=-maxint;
  min:=maxint;
  max2:=-maxint;
  randomize;
  for i:=1 to N do
    mas[i]:=random(101)-50;
  write('Массив: ');
  for i:=1 to N do
    write(mas[i], ' ');
  writeln;
  for i:=1 to N do
  begin
    if (mas[i]>0) AND (mas[i]>max1) then
      max1:=mas[i];
   if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
   begin
     c:=i;
     max2:=mas[i];
   end;
   if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
   begin
     d:=i;
     min:=mas[i];
   end;
  end;
  writeln('Максимальный положительный элемент: ',max1);
  writeln('Минимальный нечетный элемент: ',min);
  writeln('Максимальный нечетный элемент: ',max2);
  if c<d then
    writeln('Максимальный элемент стоит раньше')
  else
   writeln('Минимальный элемент стоит раньше');
end.

конкретно в каких стейтментах была ошибка , я не смог разобраться , но фактически у тебя

1.был не правильный вывод (m[1])

2.неправильная итерация по циклу с переменной 'с'

крч легче было просто переделать

var

c, n, i, j: integer;

m: array[1..1000] of integer;

begin

Readln(n);

for i := 1 to n do

begin

m[i] := i;

Write(m[i], ' ');

end;

writeln;

while n >= 1 do

begin

if c+2 < n then c := c + 3 else c := n - c + 3;

for i:=c to n do m[c]:=m[c+1];

n := n - 1;

end;

writeln(m[c]);

end.