Pascal. На подсчет слов и на массив

[Lot]

Помогите пожалуйста с задачами.

1) Программа подсчитывающая, сколько РАЗЛИЧНЫХ гласных букв слова Х употребляется в написании этого слова БОЛЕЕ ОДНОГО раза



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

[alex_fcsm]

const n=120;
var a:array[1..n,1..n] of integer;
    i,j,max:integer;
begin
for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=-random(100)+random(100);
max:=a[1,1];
for i:=1 to n do
 for j:=1 to n do
 if (abs(a[i,j]) mod 11=0) and (abs(a[i,j])>abs(max)) then max:=a[i,j];
if abs(max) mod 11 = 0 then writeln(max);
end.

[alex_fcsm]

type My=set of char;
const glas=['а','о','е','и','ё','ю','я','у','ы','э'];
var st:string;
    i,n:integer;
    s,s1:My;
    
begin
readln(st);
s:=[];s1:=[];
for i:=1 to length(st) do
 if (st[i] in glas) then begin
                             if not (st[i] in s) then s:=s+[st[i]]
                              else s1:=s1+[st[i]];
                          end;
s:=s-s1;
n:=0;
for i:=1 to length(st) do
 if (st[i] in glas)and(st[i] in s) then inc(n);
 writeln(n);
end.