Где ошибка?

Подскажите пожалуйста, почему не работает?

program LR_2;
uses crt;
var s0:set of 'A'..'Z';
s1:set of 'a'..'z';
s2:set of '0'..'9';
n:integer;
id:string[3];
function length(s:string):integer;
begin
clrscr;
writeln('Введите идентификатор: ');
readln(id);
while length(id)<>3 do
begin
write('Введите идентификатор из 3 символов');
readln(id);
end;
repeat
s0:=['A'..'Z'];
s1:=['a'..'z'];
s2:=['0'..'9'];
n:=0;
if id[1] in s0 then n:=n+1
else writeln('Первый идентификатор не верен');
if id[2] in s1 then n:=n+1
else writeln('Второй идентификатор не верен');
if id[3] in s2 then n:=n+1
else writeln('Третий идентификатор не верен');
until n=3;
writeln('Идентификатор верный.');
readln;
end.