2 задачи по Турбо Паскалю. С массивом

[Tubus]

Помогите очень нужно!

№1 Программа нахождения наибольшего по модулю элемента целочисленного массива А(М;М), кратного 11.

№2 Программа посчета числа различных согласных букв в слове Х

Буду вечно благодарен!

[Tubus]

Ну же, пожалуйста! Помогите с программами

[alex_fcsm]

const m=10;
var a:array[1..m,1..m] of integer;
    i,j,max:integer;

begin
randomize;
for i:=1 to m do
 for j:=1 to m do
  begin
   a[i,j]:=random(100)-random(100); 
   if a[i,j]=0 then a[i,j]:=1;
  end;
max:=0;
for i:=1 to m do
 for j:=1 to m do
  if (abs(a[i,j]) mod 11=0)and(abs(a[i,j])>max) then max:=a[i,j];
if max<>0 then writeln(max)
   else writeln('NO');
end.

[alex_fcsm]

const sogl=['b'..'d','f'..'h','j'..'n','p'..'t','v'..'x','z'];
var i,n:integer;
    s:string;
    M:set of char;
begin
writeln('Input word');
readln(s);
m:=[];
n:=0;
for i:=1 to length(s) do
 if (s[i] in sogl) and (not (s[i] in m)) then begin
                                               inc(n);
                                               m:=m+[s[i]];
                                              end;
writeln(n);
readln;
end.