Как объединить эти коды?

var st : string;
i : integer;
simvol : array[1..255] of integer;
k, max : integer;
begin
write('введите текст: '); readln(St);
for i := 1 to 255 do simvol [ i ] := 0;
for i := 1 to length(st) do inc(simvol[ord(st[i])]);
max := 0;
for i := 1 to 255 do if simvol[ i ]>max then
begin
max := simvol [ i];
k := i;
end;
 
writeln('больше всего символ: ', chr(k), '” -> ',max);
readln
end.

uses crt;
const g=['а','у','е','ы','о','э','я','и','ю','ё',
         'А','У','Е','Ы','О','Э','Я','И','Ю','Ё'];
var x: string;
    i,k: byte;
    
begin
write('введите текст='); readln(x);
for i:=1 to length(x) do
    if x[i] in g then inc(k);
write('k=',k);
writeln;
end.

uses crt;
const g:string[20]='ауеыоэяиюёАУЕЫОЭЯИЮЁ';
var x: string;
    simvol:array[1..20] of byte;
    n,i,max: byte;
 
begin
writeln('введите текст из русских букв');
readln(x);
n:=length(x);
for i:=1 to 20 do
simvol[i]:=0;
for i:=1 to n do
if pos(x[i],g)>0 then inc(simvol[pos(x[i],g)]);
max:=1;
for i:=2 to 20 do if simvol[i]>simvol[max] then max:=i;
writeln('больше всего символ: ',g[max],' -> ',simvol[max]);
end.