Составьте программу, выясняющую, есть ли в заданном двумерном массиве A(N,M) элементы, принадлежащие множеству (K,C,P,T)

Program n1;
Const n=10;m=10;
Var a:array[1..n,1..n]of integer;
    i,j,K,C,P,T:integer;
    mn:set of byte;
    f:boolean;
Begin
 randomize;
 writeln('Vvedite K,C,P,T');
 read(K,C,P,T);
 mn:=[K,C,P,T];
 writeln('Masiv: ');
 f:=false;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3,' ');
     if a[i,j] in mn then f:=true;
    end;
   writeln;
  end;
 if f then writeln('Elementi est!') else writeln('Elementov net!');
End.

Program n1;
Const n=5;
Var a:array[1..n,1..n]of char;
    i,j,kg,ks:integer;
    gl,bukva:set of char;
Begin
 randomize;
 bukva:=[];
 writeln('Masiv: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=chr(97+random(26));
     write(a[i,j]:2,' ');
     bukva:=bukva+[a[i,j]];
    end;
   writeln;
  end;
 writeln('Ishodniy alfavit: ');
 for i:=97 to 122 do
     if chr(i) in bukva then write(chr(i),' ');
 writeln;
 gl:=['a','e','i','y','o','u'];
 kg:=0;
 for i:=97 to 122 do
     if (chr(i) in bukva)and(chr(i) in gl) then kg:=kg+1;
 ks:=0;
 for i:=97 to 122 do
     if (chr(i) in bukva)and(not (chr(i) in gl)) then ks:=ks+1;
 writeln('Glasnih: ',kg,' Soglasnih: ',ks);
End.