задача про отсейвание букв

[redz]

вообщем обьясню ее суть: программа которая генерирует случайно 100 символов содержащих только буквы латинского алфавита
верхнего и нижнего регистра далее из этих 100 с генерированных чисел программа должна отобрать
буквы верхнего регистра ну и соответственно вывести их на экран.
буду благодарен за любую помошь в решении этой задачки на паскале

[Викдон]

uses crt;
const A: set of char=['A'..'Z'];
var i:integer;
Mas:array[1..100] of char;
n:byte;
begin
clrscr;
randomize;
i:=1;
while i<>101 do
begin
n:=Random(57)+65;
if (n<91) or (n>96) then
begin
Mas[i]:=chr(n);
i:=i+1;
end;
end;

writeln('Было: ');
for i:=1 to 100 do
write(Mas[i],' ');

writeln;
writeln('Стало: ');
for i:= 1 to 100 do
if (Mas[i] in A) then
write(Mas[i],' ');



readln;
end.