[lmikle]

Попробуй так:

Код:

type
  TP = Array of Integer;

procedure delElArray(var p: TP; k:integer); // k - индекс элемента который я хочу удалить
var mx: integer;
begin
  mx:=high(p); // индекс послед. элем. массива
  p[k] := p[mx]; // меняем местами элементы
  setlength(p,mx); // ну и вот тут ошибка
end;