В чем ошибка?

[999]

Помогите,пожалуйста найти ошибку..Задача Удалить элемент, который находится в середине стека, если нечетное число элементов, а если четное, то два средних.

var
  Form3: TForm3;
 m, d:array of integer;
 c, cd: integer;
     implementation
 {$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
var

N:integer;
begin

N:=Strtoint(Edit3.Text);
setlength(m, n);

end;

procedure TForm3.Button3Click(Sender: TObject);
begin
m[c]:=strtoint(edit1.Text);

edit2.Text:=edit2.Text+' '+inttostr(m[c]);
edit1.Text:='';
c:=c+1;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
c:=0;
cd:=0;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
n,i :integer;

 begin
    N:=Strtoint(Edit3.Text);
  ;

    if (n mod 2 = 0) then
              begin
                for i:=0 to n-1 do
                  if ((i<>n div 2) and (i<>n div 2 + 1)) then
   begin
   d[cd]:=m[i];
   cd:=cd+1;
   end;

    end
    else
      begin
          for i:=0 to n-1 do
                  if (i<>n div 2 +1) then
                  begin
                  d[cd]:=m[i];
                  cd:=cd+1;
                  end;
                  end;
 for i:= 0 to cd-1 do
    edit4.Text:=edit4.Text+' '+inttostr(d[i]);

end;
end.

Выдает ошибку access violation at address 00456103 in module project 1.exe

[evg_m]

m, d:array of integer;

зачем вам два массива?

[999]

так как нужно вывести два массива первоначальный и с удаленной строкой(строками)

[999]

вот с одним массивом но тоже ошибка,подскажите пожалуйста в чем

var

N:integer;
begin

N:=Strtoint(Edit3.Text);
setlength(m, n);

end;

procedure TForm3.Button3Click(Sender: TObject);
begin
m[c]:=strtoint(edit1.Text);

edit2.Text:=edit2.Text+' '+inttostr(m[c]);
edit1.Text:='';
c:=c+1;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
c:=0;

end;

procedure TForm3.Button1Click(Sender: TObject);
var
n,i :integer;
begin
N:=Strtoint(Edit3.Text);
 if n mod 2=0 then begin
for i:= n div 2 to n-1 do
 m[i]:=m[i+2];
 n:=n-2;
 end
 else begin
 for i:= n div 2+1 to n-1 do
 end;m[i]:=m[i+1];
 N:=n-1;
  for i:= 0 to n-1 do
 edit4.Text:=edit4.Text+' '+inttostr(m[i]);
end;
end.

[Базиля]

При каких обстоятельствах ошибка выходит?

[Hacker19_90]

 for i:= n div 2+1 to n-1 do
 end;m[i]:=m[i+1];
 N:=n-1;

Косяк!
вообще на мой взгляд, сам подход к реализации у вас неверный!

[999]

если число не четное,удаляет почему-то предпоследний элемент,если четное то удаляет два последних...

[d3qoot]

mass - первоначальный массив
massdel - получившийся массив

Добавим процедуру записи массива massdel:

//процедура massive
begin
 for i:=1 to length(massdel) do
  if i<>j then
  massdel[i]:=mass[i]
 else
  massdel[i]:=mass[i+1];
massdel[length(massdel)]:=mass[length(mass)];
end;

Условия:

if odd(length(mass)) then
 begin
  j:=trunc(length(mass) / 2)+1;
  massive;
 end
else
 begin
  j:=trunc(length(mass)/2); 
  massive;
  inc(j);
  massive;
 end;

Впринципе, таким способом можно попробовать. Останется только вывести массив в stringgrid, например.