Помогите написать задачи в паскале!!!!

1) Написать программу в паскале, которая находит сумму всех положительных элементов массива
program qwe1;
var i:integer; k:real;
a:array[1..5] of real;
begin
for i:=1 to 5 do begin
read(a); end;
for i:=1 to 5 do begin
if a>0 then k:=k+a else; end;
write(k,' ');

end.
2) Написать программу в паскале, которая находит произведение отрицательного элементов массива
program qwe2;
var i:integer; k:real;
a:array[1..5] of real;
begin
for i:=1 to 5 do begin
read(a); end;
for i:=1 to 5 do begin
if a<0 then k:=k+a else; end;
write(k,' ');

end.
3) заполнить массив из 10 элементов случайными числами и выполнить инверсию для 1 и 2 половины массива
program qwe3;
var i:integer; k:real;
a:array[1..10] of real;
begin
for i:=1 to 10 do begin
a:=random(5); write(a,' '); end; writeln;
for i:=10 downto 1 do begin write(a,' '); end; writeln;
for i:=1 to 10 do begin
if i<=5 then write(a[i+5],' ') else write(a[i-5],' '); end;
end.
4) заполнить массив и найти средне арифметическое всех элементов массива
program qwe4;
var i:integer; k:real;
a:array[1..5] of real;
begin
for i:=1 to 5 do begin
a:=random(20); write(a,' '); end;
for i:=1 to 5 do begin
k:=k+a;
end; k:=k/5 ;
writeln; write(k,' ');

end.

$s = 0;
$p = 1;
for($i=0,$c=count($a);$i<$c;$i++) if($a[$i]>0) $s+=$a[$i];

for($i=0,$c=count($a);$i<$c;$i++) if($a[$i]<0) $p*=$a[$i];