Помогите, СРОЧНО! Нужен код на паскале

programm primer;
const n=10;
var i:integer;
a:array [ 1 .. n ] of integer;
begin
for i:=1 to n do
begin
a [ i ] :=random(100)-50;
write(a [ i ] : 4);
end;
writeln;
for i:=1 to n do
begin
if a [ i ] >0
then
a [ i ]:=0;
write(a [ i ] : 4);
end;
end.

programm primer2;
var i,j:integer;
a:array [ 0 .. 8, 0 .. 4 ] of integer;
begin
for i:=1 to 8 do
begin
for j:=1 to 4 do
begin
a [ i, j ] := random(100)-50;
write( a [ i, j ] :4);
end;
writeln;
end;
writeln;

for i:=1 to 8 do
begin
for j:=1 to 4 do
begin
if a [ i, j ] <0
then
a[ i, j ]:=a[ i, j ]*a [ i, j ];
write( a [ i, j ] :4);
end;
writeln;
end;
end.

Кому нужен? Мне нет.
Когда мне понадобится пиши на почту

Вот так
1.
for j:=1 to n do
if mas[j] > 0 then mas[j]:=0;
2.
for j:=1 to 8 do
for k:=1 to 4 do
if mas[j,k] < 0 then mas[j,k]:=sqr(mas[j,k]);

Вот и всё.

program Massiv;
var a,b:integer;
begin
writeln ('i really don't know what your homework means');
readln (what the fuck, dude! I'm so stupid and i can't do my homework, so help me fuckin cpu!);
writeln ('u know what? i leave u fuckin nerd, die alone!');
readln (stop, sorry me dude...);
writeln ('3.2.1....');
end.

1 :Begin
{Scale(k);}
End;
2 :Begin
{Reflection(k);}
End;
3:Begin
(Transfer(k);}
End;
4:Begin
{Rotation(k);}
End;
5 :Begin
{Severance(k)}
End;
6:Begin
{Delete(k)}
End;
End; {Case2}
End; {Casel}
Until Ch= #13;
ClearDevice;
Frame(5,5,635,365,Green);
Spindles;
Frame(5,375,635,475,Yellow);
Bukva(k);
End;
BEGIN { Основная программа}
IGraph;
TextColor(White);
Frame(5,5,635,365,Green);
Spindles;
Frame(5,375,635,475,Yellow);
n:=l;