Ребята решите две задачи по pascal

[Pro100blich]

1.Даны множества:А=[2,4,7,9],В=[1,5,8,9],С=[7,9].Найти пересечение С и В, разность С и В, объединение А и С.Вывести на экран полученный результат.
2.Дан текст на английском языке.Удалить все большие буквы. результат вывести на экран.

Решите плиз, заранее спасибо!!

[Arigato]

function DelUpper(const str: string): string;
var
  res: string;
  i: integer;
begin
  res := '';
  for i := 1 to Length(str) do
    if (str[i]<#$41) or (str[i]>#$5A) then
      res:=res+str[i];
  DelUpper:=res;
end;

var
  s: string;

begin
  readln(s);
  writeln(delupper(s));
  ReadLn;
end.

type
  ByteSet = set of Byte;

procedure PrintSet(a: ByteSet);
var
  b: Byte;
begin
  for b := Lo(b) to High(b) do
    if b in a then Write(b, #32);
  writeln;
end;

const
  A: ByteSet=[2,4,7,9];
  B: ByteSet=[1,5,8,9];
  C: ByteSet=[7,9];

begin
   PrintSet(C*B);
   PrintSet(C-B);
   PrintSet(A+C);
   ReadLn;
end.