Функции и процедуры в Паскале

[Zmei89]

решите, пожалуйста, пару задач.
1. Заданы числа x1,...,x10. Определить для скольких из них функция F=sin(A*xi+y) принимает отрицательные значения с шагом 0,1 на интервале [a,k]
2. Дана матрица NxN, состоящая из натуральных чисел. Зеркально отразить её элементы относительной горизонтальной оси симметрии и вывести результат на экран.

Все задачи решить с помощью функций и процедур. Заранее вам благодарен!!!!

[Mikhail Bakurov]

решу с блок схемами, недорого. Пиши
3 5 4-4 1 2-3 8 3

[sir.andrey]

Задача №2:

program by_Andreyka;
type matr=array [1..50,1..50] of integer;
var
i,j,n:integer; a:matr;
procedure perest (b:matr;q:integer);
var z,i,j,x,k:integer;
begin
z:=q mod 2;
k:=0;
for i:=1 to z do begin
  for j:=1 to q do begin
                   x:=a[i,j];
                   a[i,j]:=a[q-k,j];
                   a[q-k,j]:=x;
                   end;
                 k:=k+1;
                 end;
writeln ('poly4ilos');
for i:=1 to q do begin
  for j:=1 to q do write (a[i,j],' ');
                 writeln;
                 end;
end;
{ocnovnaya proga}
begin
writeln ('vvedite "N"');
read (n);
randomize;
for i:=1 to n do
 for j:=1 to n do (a[i,j]):=random(9);
for i:=1 to n do begin
  for j:=1 to n do write (a[i,j],' ');
                 writeln;
                 end;
perest (a,n);
end.

Вроде бы сделал все правильно, но не работает!!
Элементы вообще не переставляются, вручнюу (на листе бумаги)
прогоняю программу все получается!
Посмотри, может найдешь ошибочку!