Помогите решить задачу в паскале! Найти максимальный отрицательный элемент массива А (13) и удалить его.

Всмысле удалить его? Воспользоваться сдвигом массива?

var
A: array[1..13] of integer;
min,i,k: integer;
begin
...
...
min:=A[1]; k:=1;
for i:=1 to 13 do
if A[ i ] < min then
begin
min:=A[ i ]; k:=i;
end;
A[k] := null;
end;