Помогите! Завтра надо сдавать все задачи, а у меня не хватает((( Паскаль

Первая задача:
uses crt;
var a:array[1..100] of integer;
i,n,k:integer;
begin
clrscr;
randomize;
write('Vvedite razmer massiva: ');
readln(n);
for i:=1 to n do begin
a[ i ]:=random(40)-20;
write(a[ i ]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if (a[ i ] < 0) then begin
k:=i;
break;
if k > 0 then break;
end;
if k = 0 then write('В массиве нет отрицательных элементов! ')
else
writeln('Первый отрицательный элемент = ',a[ k ]);
readln;
end.

Вторая задача:
uses
crt;
var
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,k,n,m:integer;
s:real;
begin
clrscr;
randomize;
write('N = ');
readln(n);
write('M = ');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(40)-20;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5 ) ;
writeln;
end;
writeln(' _________________________________________' ) ;
writeln;
b[ j ]:=0;
for j:=1 to m do
for i:=1 to n do
if a[i,j] > 0 then
begin
b[ j ]:=b[ j ]+a[i,j];
end;
for i:=1 to m do
write(b[ i ]:5);
readln;
end.

Третья задача:
uses crt;
var a,b,c:array[1..100] of integer;
z:array[1..100] of real;
n,i:integer;
begin
clrscr;
randomize;
write('N = ');
readln(n);
for i:=1 to n do begin
a[ i ]:=random(19)+1;
write(a[ i ]:6);
end;
writeln;
for i:=1 to n do begin
b[ i ]:=random(19)+1;
write(b[ i ]:6);
end;
writeln;
for i:=1 to n do begin
c[ i ]:=random(19)+1;
write(c[ i ]:6);
end;
writeln;
writeln;
for i:=1 to n do
z[ i ]:=(3*a[ i ])/(b[ i ]*c[ i ]);
for i:=1 to n do
write(z[ i ]:6:2);
readln;
end.

Сам решай