Решить практическую работу

[niao]

Владею паскалем очень плохо,но задания очень легкие,можете пожалуйста написать текст программы,спасибка с меня обеспечена!

Вот два моих задания:

1.Дано массив из 16 элементов действительных чисел. Определить суму элементов с отрицательным знаком и вывести ответ.

Var a: array [1..16] of real;
n,i : integer;
s: real;
begin
write('Введите название массива'); for i:=1 to 16 do readln(a[i]);
s:=0;
for i:=1 to 16 do
if a[i]<0 then s:=s+a[i];
writeln('Сумма отрицательных элементов равна',s);
readln;
end.

2.Дано двумерный массив, размером 4х6 элементов целых чисел. Определить и напечатать для каждого ряда сумму элементов.

[Negus.]

program Project1;

Var i,j:integer; s:integer; a:array[1..4, 1..6] of integer;

begin
randomize;
for j:=1 to 6 do
begin
s:=0;
writeln;
for i:=1 to 4 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
s:=s+a[i,j];
end;
write(' summa ryada ',' s=',s);
end;
readln;
end.

[=nekros=]

1. Program otriz;
Var a:array[1..16] of real;
i:integer;
Sum:real;
Begin
For i:=1 to 16 do
begin
Writeln('Введите число под номером',i);
Readln(a[i]); \\ Ввод массива
end;
Sum:=0;
For i:=1 to 16 do
begin
if a[i]<0 then
Sum:=Sum+a[i];
end;
Writeln('Сумма отриц. элементов равна',Sum)
end.
сорь тупанул, не углядел код уже готовый))), не соображаю уже под вечер)) удалите если мешает)