1:
2:
3:
4:
5:
6:

function UpperandLower(Text:string):string;
var i : integer;
begin
  for i:=1 to length(text) do if i mod 2 = 0 then text[i]:=uppercase(text[i]) else text[i]:=lowercase(text[i]);
  result:=text;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function UpperandLower(Text:string):string;
var
  i: Integer;
begin
  for i:=1 to length(text) do
    if i mod 2 = 0 then
      result := result + UpCase(text[i])
    else
      result := result + LowerCase(text[i])[1];
end;