uses crt;
type
a=1..10;
b='A'..'Z';
var
c,i:a;
d,j:b;
begin
clrscr;
for i:=1 to 10 do
if i>1 then
begin
c:=i;
break;
end;
for j:='A' to 'Z' do
if j>'A' then
begin
d:=j;
break;
end;
writeln('You are ',c,d);
readln;
end.

没人吗

呵呵呵呵呵，LZ你看看是那一行错
还是溢出
总之发过来