PASCAL两题 求高手解答 在线急等

procedure TForm1.Button1Click(Sender: TObject);
var
i, r, Len: Integer;
s1, s2: string;
begin
Randomize;
Len := RandomRange(10, 100); //随机生成字符串长度
for i := 1 to Len do
begin
r := RandomRange(0, 51); //26个大小写字母，共52个
if r < 26 then
begin
//小写字母
s1 := s1 + Chr(Ord('a') + r);
s2 := s2 + Chr(Ord('A') + r); //s2相反
end else
begin
r := r - 26;
//大写字母
s1 := s1 + Chr(Ord('A') + r);
s2 := s2 + Chr(Ord('a') + r); //s2相反
end;
end;
//输出
Memo1.Lines.Add(s1);
Memo1.Lines.Add(s2);
end;