Delphi заготовки

const s='В лесу родилась ёлочка,в лесу она росла.';
sen=['а','е','ё','и','о','у','ы','э','ю','я'];

type tset=set of char;
tarray=array['а'..'ё'] of integer;

procedure readset(var aset:tset);
var i:byte;
begin
for i:=1 to length(s) do
aset:=aset+[s[i]];
end;

procedure count(var aset:tset;var amas:tarray);
var i:byte;
begin
for i:=1 to length(s) do
if (s[i] in aset) and (s[i] in ['а'..'ё']) then
inc(amas[s[i]]);
end;

procedure writecount(var aset:tset;var amas:tarray);
var ch:char;
begin
for ch:='а' to 'ё' do
if (ch in aset) and (ch in ['а'..'ё']) then begin
write(ch);
writeln(amas[ch]:4);
end;
end;

var sn:tset;
mas:tarray;
ch:char;
begin
sn:=[];
for ch:='а' to 'ё' do mas[ch]:=0;
readset(sn);
sn:=sn*sen;
count(sn,mas);
writecount(sn,mas);
readln
end.