Pascal/Turbo Pascal - hacer una cadena en pascal que intercale minúsculas y mayúsculas

program cadena;

uses

    crt;

  var

     texto : string;

   function editor : string;

    var

       cad : string;

   begin

         write('  Entre cadena Maximo 255 caracteres : ');

         readln(cad);

         editor := copy(cad,1,length(cad));

   end;

     texto := editor;

     writeln(texto);

     readln;

   end.