помогите решить 2 задачи

[Baby33]

1) В строке символов определить наличие глассных букв.


2) В матрице найти произведение тех ее элементов, сумма номеров строки и столбца которых равна числу 5. Заменить на полученное произведение последний столбец матрицы.


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

[alex_fcsm]

Если только наличие то

var s:string;
    i:integer;
    q:set of char;
begin
q:=['A','O','E','U','I','Y'];
readln(s);
for i:=1 to length(s) do
 if UpCase(s[i]) in q then begin
                   writeln('Yes');
                   break;
                   end;

end.

[alex_fcsm]

uses crt;
const m=5;
     n=5;
var a:array[1..m,1..n] of longint;
    i,j:integer;
    max:longint;
begin
clrscr;
for i:=1 to m do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(10)+1;
  write(a[i,j]:4);
  end;
writeln;
end;
writeln('==================================');
max:=1;
for i:=1 to m do
 for j:=1 to n do
  if i+j=5 then max:=max*a[i,j];
for i:=1 to m do
 a[i,n]:=max;
 
for i:=1 to m do
begin
 for j:=1 to n do
  write(a[i,j]:4);
writeln;
end;

end.

[Baby33]

Спасибо оргомное!!!!!!!!!!