Табулирование функции и матрицы. Помогите пожалуста!

[4ERRY]

Здраствуйте.
подскажите пожалуста как решить 4 задачи.
по первой задаче у меня небольшие наработки есть.
пыталась сделать упрощенный вариат:

program tabul;
uses crt;
var x,y:real;
s,d:integer;
begin
clrscr;
x:=0;
s:=1;
d:=0;
write ('x y');
writeln;
repeat
x:=x+0.7;
if (x>-7) and (x<0) then
y:=x+(x+1);
if (x=0) then
y:=x
if (x>0) and (x<7) then
y:=x-(x+1);
if y<0 then
d:=d+1;
s:=s*y;
writeln (x:5:2,y:5:2,'сумма =',d,'произведение =',s);
readln;
end.

но я не знаю, как сделать ограничение по i, т.е [-i; i];
и не знаю что писать после then, кроме случаяя с х=0. что написала я - не работает.
и не понимаю что делать с поиском данных!

по 4ой задаче тоже есть небольшие наработки.

Var

A : Array[1..5,1..9] Of Integer;
I, K : Byte;

Begin


For I:=1 To 10 Do
Begin
For K:=1 To 10 Do
Begin

A[I,K]:=Trunc(Random*45)+1;
Write(A[I,K]:6);

if (A[1,1] and A[2,1] and A[3,1] and A[3,1] and A[4,1] and A[5,1])>0 then
if (A[1,2] and A[2,2] and A[3,2] and A[3,2] and A[4,2] and A[5,2])>0 then
if (A[1,3] and A[2,3] and A[3,3] and A[3,3] and A[4,3] and A[5,3])>0 then
if (A[1,4] and A[2,4] and A[3,4] and A[3,4] and A[4,4] and A[5,4])>0 then
if (A[1,5] and A[2,5] and A[3,5] and A[3,5] and A[4,5] and A[5,5])>0 then
if (A[1,6] and A[2,6] and A[3,6] and A[3,6] and A[4,6] and A[5,6])>0 then
if (A[1,7] and A[2,7] and A[3,7] and A[3,7] and A[4,7] and A[5,7])>0 then
if (A[1,8] and A[2,8] and A[3,8] and A[3,8] and A[4,8] and A[5,8])>0 then
if (A[1,9] and A[2,9] and A[3,9] and A[3,9] and A[4,9] and A[5,9])>0 then

вот тут после then я думаю что нужно ввести матрицу B размерностью 1x9 и как то совместить в матрице С две этих матрицы...
пыталась так сделать но ничего не вышло.

А вот по 2ой и 3ей задаче у меня ничего нет... если честно то я даже
никогда такие не встречала. пытались разобраться с папой но толку нет.

Пожалуйста помогите мне. я заплачу сколько скажете (конешно в пределах разумного)

условие задач в приложенной картинке.
Спасибо зараннее.