Дан массив, состоящий из цифр. Удалить из него все отрицательные числа. Делфи

Делфи не было написал не проверив вроде так
var
i,k:integer;
a:array[1..10] of integer;
begin
label1.caption:='';
for i:=1 to 10 do
a[i]:=random(50)-30;
end;
begin
label1.caption:=label.caption+intToStr(a[i])+';';
for i:=1 to 10 do
if a[i]>0 then
label2.caption:=label2.captiom+intToStr(a[i])+';';
end;
end.

либо вот код паскаля (они с делфи одинаковы) можешь в консоле запускать

Program DoSs;
var
i:integer;
a:array[1..15] of integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(200)-130;
write(a[i], ' ;' );
end;
for i:=1 to 15 do
if a[i]>0 then
writeln(a[i],';');
end.

Знак минуса - не цифра, значит, в массиве его нет и соответственно не может быть и отрицательных чисел. Отдавай условие назад :)

ну тут задача описана не полностью - если мы имеем дело с динамическим массивом (а скорее всего о нём и речь, ибо о размерности массива ни слова) то явно надо было указать "удалить из массива элементы с отрицательными значениями". Если же речь идёт всё же о статическом массиве то надо бы указать чем именно заменить отрицательные значения в элементах массива, как вариант могут быть нули. Но об этом опять таки не слова. Получая задание от препода заставляйте его максимально чётко объяснить что же именно от вас требуется. Вы же неуки мало того что решить не можете, так и прежде и задание понять и следовательно объяснить не в силах.

Читаем массив, фильтруем его, выводим. В чем сложность-то?

пиши мне, сделаю с цену бутылки пива)