Что делает данная программа? program n_1;
var
a: integer;
z: array [1..50] of integer;
begin
for a := 1 to 50 do
begin
z[a] := random(201) - 100;
if z[a] > 0 then
write(z[a],' ');
end;
end

Так-с, в разделе объявления переменных мы видим какую-то переменную a и какой-то массив z.

Идём далее, видим, что a у нас используется к счетчик для цикла for.

Получается, что мы заполняем массив случайными числами в заданном диапазоне и сравниваем каждый элемент массива с нулем, если элемент больше нуля, то мы выводим его на экран.

Теперь всё абсолютно ясно, программа заполняет массив случайными числами, а затем выводит те элементы на экран, которые больше нуля( то есть положительные)