Из массива удалить все элементы, которые меньше 0.Составить программу в паскале,пожалуйста.

Var
 a: array[0..99] of integer;
begin
  //наполняем массив случайными числами
  Randomize();
  for var i:=0 to 99 do a[i]:=random(-100,100);
 
  //а сейчас сменяем все отрицательные элементы на ноль
  for var i:=0 to 99 do 
    if (a[i]lt;0) then a[i]:=0;
end.
-----------------------------------------------------------
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]);  n1:=n;  for var i:=n downto 1 doв цикле просматриваем элементы массива  begin    if A[i] lt; 0 then проверяем, необходимо ли устранять i-ый элемент    beginесли необходимо удаляем i-ый элемент      for var j := i to n1 - 1 do         A[j] := A[j + 1]; сдвигаем       A[n1]:=0;        Dec(n1); убавляем количество частей    end;  end;  for var i:=1 to n1 do    write(A[i], ' ');end.