Паскаль. Две задачи с матрицами

[L@dy]

1.Для матрицы А (4 строки;5 столбцов) вывести те строки, в которых есть нулевые элементы или вывести сообщение "нет строк с нулевыми элементами". Для проверки наличия нулевых элементов в произвольной строке матрицы использовать процедуру.

2. Дана матрица 6Х6.Составить процедуру, которая находит номер первого от начала массива Т элемента, для которого f(Ti) больше заданной величины.
Для каждой строки матрицы А отпечатать элементы, начиная с элемента, абсолютная величина которого больше R.

Заранее спасибо.

[Alex21]

-=1=-
const
M=4;
N=5;
var i,j,s:integer;
A:array[1..M,1..N]of integer;

procedure Create_Mass;
begin
Randomize();
for i:=1 to m do
begin
for j:= 1 to n do
begin
a[i,j]:=Random(10);
end;
end;
end;

procedure Find(str:integer);
var stop:boolean;
kol:integer;
begin
stop:=false;
kol:=0;
for i:=1 to m do
begin
if (a[i,str]='0')and(stop=false) then
begin
stop:=true; {если есть хоть один ноль, то берем всю строку}
for j:=1 to M do
begin
Write(a[j,str],' ');
inc(kol);
end;
end;
end;
if kol=0 then Writeln('Нулевых элементов в строке ',str,' не найдено!');
end;

begin
{*}
Create_Mass;
Writeln('Введите строку 1-4 для поиска в ней нулевых элементов: ');
Readln(s);
Find(s);
{*}
end.
/////////////////
Между {*} и {*} для автоматического перебора вставляем код:

Create_Mass;
for i:=1 to M do
begin
Find(i);
end;
end.