Множество: Подсчитать количество гласных в множестве s, построить множество простых чисел от 0 до 99

var s1 : set of 0. .99;
 s : set of char;
 c,d : char;

uses crt;
var s1: set of 0..99;
    s: set of char;
    a,c,d: char;
    i,j,k: byte;
 
begin
s:=[];
write('c='); readln(c);
repeat
write('d (d>c)='); readln(d);
until d>c;
for a:=succ(c) to pred(d) do
    s:=s+[a];
s1:=[];
for i:=2 to 99 do
    begin
    k:=0;
    for j:=2 to i-1 do
        if i mod j=0 then inc(k);
    if k=0 then s1:=s1+[i];
    end;
writeln('Множество s');
for i:=0 to 255 do
    if chr(i) in s then write(chr(i),' ');
writeln;
writeln('Множество s1');
for i:=0 to 99 do
    if i in s1 then write(i,' ');
end.

uses crt;
const g=['у','е','ы','а','о','э','я','и','ю','ё',
         'e','y','u','a','i','o',
         'У','Е','Ы','А','О','Э','Я','И','Ю','Ё',
         'E','Y','U','A','I','O'];
var s1: set of 0..99;
    s: set of char;
    a,c,d: char;
    i,j,k: byte;
 
begin
s:=[];
write('c='); readln(c);
repeat
write('d (d>c)='); readln(d);
until d>c;
for a:=succ(c) to pred(d) do
    s:=s+[a];
s1:=[];
for i:=2 to 99 do
    begin
    k:=0;
    for j:=2 to i-1 do
        if i mod j=0 then inc(k);
    if k=0 then s1:=s1+[i];
    end;
k:=0;
writeln('Множество s');
for i:=0 to 255 do
    begin
    if chr(i) in s then write(chr(i),' ');
    if (chr(i) in s) and (chr(i) in g) then inc(k);
    end;
writeln;
writeln(k,' гласных');
writeln;
writeln('Множество s1');
for i:=0 to 99 do
    if i in s1 then write(i,' ');
end.