Найти максимальное повторение гласной и согласной буквы в тексте

uses crt;
const sog=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z'];
      gl=['A','E','Y','U','I','O'];
var s,s1:string;
    i,k,mx,mx1,p:byte;
    c,t:char;
begin
writeln('Введите строку:');
readln(s);
s1:=s;
mx:=0;
for i:=1 to length(s) do
s[i] := UpCase(s[i]);
if s[i] in sog then
 begin
  k:=0;
  while pos(s[i],s1)>0 do
   begin
    k:=k+1;
    delete(s1,pos(s[i],s1),1);
   end;
  if k>mx then
 begin
    mx:=k;
    c:=s[i];
   end;
 end;
 
s1:=s;
mx1:=0;
for i:=1 to length(s) do
s[i] := UpCase(s[i]);
if s[i] in gl then
 begin
  p:=0;
  while pos(s[i],s1)>0 do
   begin
    p:=p+1;
    delete(s1,pos(s[i],s1),1);
   end;
  if p>mx1 then
 begin
    mx1:=p;
    t:=s[i];
   end;
 end;
 
 
if mx=0 then write('В строке нет согласных  букв!')
else write('Наиболее частая согласная буква ',c,'  повторяется ',mx,' раз(а)');
writeln;
if mx1=0 then write('В строке нет гласных букв!')
else write('Наиболее частая гласная буква ',t,'  повторяется ',mx1,' раз(а)');
end.

const sog=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z'];
      gl=['A','E','Y','U','I','O'];
var s:string;
a:array ['A'..'Z'] of integer;
i,mx1,mx2:integer;
c,sogl,glas:char;
begin
writeln('Введите строку:');
readln(s);
For c:='A' to 'Z' do a[c]:=0;
For i:=1 to Length(s) do begin
c:=Upcase(s[i]);
a[c]:=a[c]+1;
end;
mx1:=0;
mx2:=0;
For c:='A' to 'Z' do begin
IF c in sog THEN begin
  IF a[c]>mx1 THEN begin mx1:=a[c];
                          sogl:=c;
                    end;
                  end
             ELSE begin
  IF a[c]>mx2 THEN begin mx2:=a[c];
                          glas:=c;
                    end;
                   end;
end;
if mx1=0 then write('В строке нет согласных  букв!')
else write('Наиболее частая согласная буква ',sogl,'  повторяется ',mx1,' раз(а)');
writeln;
if mx2=0 then write('В строке нет гласных букв!')
else write('Наиболее частая гласная буква ',glas,'  повторяется ',mx2,' раз(а)');
end.

const sog=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z'];
      gl=['A','E','Y','U','I','O'];
var s:string;
a:array ['A'..'Z'] of integer;
i,mx1,mx2:integer;
c:char;
sogl,glas:string;
begin
sogl:='';
glas:='';
writeln('Введите строку:');
readln(s);
For c:='A' to 'Z' do a[c]:=0;
For i:=1 to Length(s) do begin
c:=Upcase(s[i]);
a[c]:=a[c]+1;
end;
mx1:=0;
mx2:=0;
For c:='A' to 'Z' do begin
IF c in sog THEN begin
  IF a[c]=mx1 THEN begin
                          sogl:= sogl + ', ' + c;
                    end;
  IF a[c]>mx1 THEN begin 
                         mx1:=a[c];
                         sogl:= c;
                    end;
                  end
             ELSE begin
  IF a[c]=mx2 THEN begin
                          glas:= glas + ', ' + c;
                    end;
  IF a[c]>mx2 THEN begin mx2:=a[c];
                         glas:= c;
                    end;
                   end;
end;
if mx1=0 then write('В строке нет согласных  букв!')
else write('Наиболее частые согласные буквы ',sogl,'  повторяются ',mx1,' раз(а)');
writeln;
if mx2=0 then write('В строке нет гласных букв!')
else write('Наиболее частые гласные буквы ',glas,'  повторяются ',mx2,' раз(а)');
end.