Здравствуйте, Пушкарёв Дмитрий Сергеевич!
Решение первых двух задач с пояснениями в приложении. Условие третьей задачи несколько расплывчато. Найти это узнать, есть ли такая буква в тексте, или где она находится, одну букву найти, или все. Хорошо бы уточнить.


Приложение:
1)Дана матрица размерности N на M. Вычислить количество строк матрицы, в которых нет ни одного отрицательного элемента.
uses crt;
const n=7;
m=5;
var a:array[1..n,1..m] of integer;
i,j,k,p:byte;
begin
clrscr;
randomize; {генерация случайных чисел}
k:=0;{счетчик строк без отрицательных элементов}
for i:=1 to n do
begin
p:=0;{счетчик отрицательных чисел в строке}
for j:=1 to m do
begin
a[i,j]:=random(10)-2;
write(a[i,j]:3);
if a[i,j]<0 then p:=p+1;{если отрицательное, +1}
end;
if p=0 then k:=k+1; {если в строке нет отрицательных, +1}
writeln;
end;
writeln('Kolichestvo strok bez otricatelnyh elementov=',k);
readln
end.
2)Найти номер строки и столбца максимального элемента двумерного массива целых чисел размерности 7*4.
uses crt;
const n=7;
m=4;
var a:array[1..n,1..m]of integer;
i,j,imax,jmax,max:integer;
begin
clrscr;
randomize;
max:=a[1,1];imax:=1;jmax:=1; {начальные значения макс., строки и столбца}
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
if a[i,j]>max then {если очередное число больше предыдущего максимума}
begin
max:=a[i,j]; {запоминаем число}
imax:=i; {запоминаем номер строки}
jmax:=j; {запоминаем номер столбца}
end;
end;
writeln;
end;
writeln('Nomer stroki=',imax,' Nomer stolbca=',jmax);
readln
end.