паскаль АВС.net .Дано одномерный массив длиной n. "сжать "его , изъяв

Массив как наполнять? Самому случайными числами либо будет вводится с клавиатуры?

с клавиатуры

Хорошо, пошел писать

ты программист ?

Нет, любитель)

Ну что же делать, если не дорос (да и вряд ли дорасту), я трезво свои способности расцениваю.

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите',ReadInteger('n='));
  a:=a.Where(x-gt;xgt;=0).ToArray; a.Println
end.

Пример
n= 5
Вводите 3 -2 0 -1 5 8
3 0 5

То же, в терминах Pascal ABC ("по-школьному")

const
  k=50;
var
  n,i,m:integer;
  a,t:array[1..k] of integer;
begin
  Write('n='); Read(n);
  Write('Вводите: ');
  for i:=1 to n do Read(a[i]);
  m:=0;
  for i:=1 to n do
    if a[i]gt;=0 then begin
      m:=m+1;
      t[m]:=a[i]
      end;
  n:=m;
  for i:=1 to n do begin
    a[i]:=t[i];
    Write(a[i],' ')
    end;
  Writeln
end.

Мыслю, есть о чем помыслить: почему в школе учат писать длинно и трудно?

На этот раз вроде бы и не торопился, все просмотрел (но наверное, как всегда что-нибудь просмотрел)))), и кажется мне, что "школьное" решение уважаемого Эникея не удовлетворяет поставленной задаче (опасаюсь, что вновь придется оправдываться, но все же рискну).
Из массива не удалены все отрицательные элементы. Их не видно, поэтому что распечатывается не весь массив. На первом скане видно, что при вводе массива (-1,-2,3,4,-5) элементы 4 и -5 остались на собственных местах, просто они не выводятся на печать. Вот поэтому я считаю, что это решение некорректно, поставленная задачка не выполнена.
Собственный вариант решения привожу на втором скане.