Помогите пожалуйста!!! Мне очень нужна ваша помощь!!! Помогите решить 3 задачку

1.
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(111)-10;
write(a[i,j]:4)
end;
writeln
end;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]gt;a[3,3] then s:=s+a[i,j];
writeln ('Сумма частей больше элемента с номером [3,3] и одинакового ',a[3,3],' равна: ',s)
end.

2.
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,k:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(121)-100;
write(a[i,j]:4)
end;
writeln
end;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]lt;0 then
begin
s:=s+a[i,j];
k:=k+1
end;
writeln ('Среднее арифметическое всех отрицательных частей одинаково: ',s/k)
end.

3.
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,k,l:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(81)-40;
write(a[i,j]:4)
end;
writeln
end;
write ('Введите номер столбца и номер строки: ');
readln (k,l);
for i:= 1 to n do
for j:=1 to n do
if a[i,j]lt;a[l,k] then s:=s+a[i,j];
writeln ('Сумма элементов меньше элемента с номером [',l,',',k,'] и одинакового ',a[l,k],' одинакова: ',s)
end.