Удаление элементов из массива

Program Massiv;
const
N=10;
var
i,j,x,min,max,k,m: integer;
mas: array[1..N] of integer;
BEGIN
randomize;
writeln('массив:');
for i:=1 to N do begin
  mas[i]:=random(N);
  write(mas[i]:2);
  end;
  writeln;
max:=mas[1];
min:=mas[1];
for i:=2 to n do begin
if mas[i]>max then begin 
   max:=mas[i];
   k:=i;
   end;
if mas[i]<min then begin
   min:=mas[i];
   m:=i;
   end;
 end;
 writeln('мин=',m,',', 'макс=',k);
 
 if m<k then begin
   //writeln('minind=',m,',','maxind=',k);
   for j:= m+1 to k-1 do begin
    if (mas[j]mod 2)=0 then
      for i := j to N-1 do begin
      mas[i] := mas[i+1];
      end;
      end;
   
   end; 
  if m>k then begin
  // writeln('minind=',k,',','maxind=',m);
   for j:= k+1 to m-1 do begin
    if (mas[j] mod 2)=0 then
      for i:= j to N-1 do begin
      mas[i]:= mas[i+1];
      end;
      end;
     
   end;
  for j:= 1 to n do
  write(mas[j]:2);
  end.

const
  n = 10;
 
var
  i, j, min, max, x, y, p: integer;
  mas, mas2: array[1..n] of integer;
 
begin
  for i := 1 to n do
  begin
    mas[i] := random(9) + 1;
    Write(mas[i]:3);
  end;
  max := mas[1];
  min := mas[1];
  for i := 1 to n do
  begin
    if mas[i] >= max Then
    begin
      max := mas[i];
      x := i;
    end;
    if mas[i] <= min then
    begin
      min := mas[i];
      y := i;
    end; 
  end;
  Writeln;
  Writeln('Минимальное число - ', min, ' Максимальное число -', max);
  p := 1;
  if x > y then
  begin
    for i := 1 to y do
    begin
      mas2[p] := mas[i];
      inc(p);
    end;
    for i := y + 1 to x - 1 do
      if (mas[i] mod 2 <> 0) Then
      begin
        mas2[p] := mas[i];
        inc(p);
      end;
    //mas2[p] := mas[x];
    for i:=x to n do
    begin
    mas2[p] := mas[i];
    inc(p);
    end;
  end;
  
  if y > x then
  begin
    for i := 1 to x do
    begin
      mas2[p] := mas[i];
      inc(p);
    end;
    for i := x + 1 to y - 1 do
      if (mas[i] mod 2 <> 0) Then
      begin
        mas2[p] := mas[i];
        inc(p);
      end;
    for i:=y to n do
    begin
    mas2[p] := mas[i];
    inc(p);
    end;
  end;
  
  Writeln;
  for i := 1 to n do
    Write(mas2[i]:3);
end.