Опять Паскаль...Тема множества...Заранее огромное спасибо!!!

[Miledi]

1.Задана последовательность строчных латинских букв. Вычис¬лить сколько в ней гласных и распечатать.
2.Задана матрица nxn и два множества М1 и М2.Вычислить сумму тех элементов матрицы А, номера строк и столбцов которых принадле¬жит соответственно М1 и М2.

[Greblin]

1 задачка

var Glas: set of char;
    ch: char;
    count: integer;

begin
Glas := ['a', 'e', 'i', 'o', 'u'];
count := 0;
while not eoln do
  begin
  read(ch);
  if ch in Glas then
    inc(count);
  end;
writeln(count);
end.

2 задачка

var A: array[1..255,1..255] of integer;
    N: byte;
    i, j: byte;
    Sum: integer;
    M1, M2: set of byte;
    el: byte;

begin
readln(N);
for i := 1 to N do
  for j := 1 to N do
    read(A[i, j]);
readln;
while not eoln do
  begin
  read(el);
  include(M1, el);
  end;
readln;
while not eoln do
  begin
  read(el);
  include(M2, el);
  end;
Sum := 0;
for i := 1 to N do
  for j := 1 to N do
    if (i in M1) and (j in M2) then
      Sum := Sum + A[i, j];
writeln(Sum);
end.