Дано описание массива: consta:array[1..3]ofinteger=(12,8,62);

Верно ли описан массив?

:):):):):):):):):):):):):):):):):):):):):):):):):):):

Const  rchars='аеиоуыэюя'; var  s: string;   mas: array[1..length(rchars)] of integer;   k,i: integer; begin  s: ='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буквы,которые.'; {readln(s); }  {инициализация массива счётчика гласных}  for k: =1 to length(rchars) do    mas[k]: =0;   i: =1;   while i< =length(s) do begin  {проверка на соответствие буквы гласной, согласно списку гласных}    for k: =1 to length(rchars) do      if (rchars[k]=s[i]) and (mas[k]< > -1) then        mas[k]: =mas[k]+1;     if (s[i]=',') or (s[i]='.') then      begin         {проверить повторение гласных на два и более раз и проинициализировать массив счётчик}        for k: =1 to length(rchars) do          if (mas[k]< =2) and (mas[k]< > -1) then            mas[k]: =0          else            mas[k]: =-1;       end;     inc(i);   end;   {вывод повторяющихся гласных}   s: ='';   for k: =1 to length(rchars) do    if mas[k]=-1 then      s: =s+rchars[k];   writeln(s); end.