одномерный массив

[Naruto63]

С помощью пк произвести обработку одномерного массива. Элементы одномерного массива задать числами в диапазоне -20....+50.
необходимо:
1. описать массив
2. ввести элементы массива из заданного диапазона
3. выполнить с элементами массива действия. (Переписать в массив L подряд положительные эллементы массива M. )
4. вывести результаты на экран.
Имя массива М(16)
Помогите пожалуйста решить задание.

[ОДИНОЧЕСТВО В СЕТИ]

var m,l:array[1..16] of integer;
i,k:integer;
begin
for i:=1 to 16 do
a[i]:=random(71)-20;
for i:=1 to 16 
write(m[i]:4);
writeln;
k:=0;
for i:=1 to 16 do
if m[i]>0 then
begin
 k:=k+1;
l[k]:=m[i];
end;
for i:=1 to k do
write(l[i]);
readln;
end.

[Naruto63]

а можно пояснить что делали в каждой строке, пожааааааалуйста, просто очень нужно. Заранее огромное спасибо!

[ОДИНОЧЕСТВО В СЕТИ]

пожааааааалуйста

читай help там все есть!

[enigma)))))]

Два массива размером 200 и 5 элементов, соответственно, заполните в
случайном порядке символами, коды которых расположены в диапазоне от 40
до 200. Проверить входит ли меньший массив полностью в больший и, если
это так, то в большем массиве все элементы, принадлежащие меньшему
массиву, заменить на символы "пробел". Выполните сортировку полученных
массивов. Для контроля результата сделайте распечатку массивов, в том числе
исходного.

Помогите пожалуйста !!!по этой же теме,поэтому пишу сюда))