1:
function ZamienNieParzyste( s: string ) : string;
var
i : integer;
begin
for i := 1 to length( s ) do // od początku stringa do końca
if (i mod 2 <> 0) then // sprawdzaj nie parzyste pozycje
s[i] := uppercase(s[i]) // i zmieniaj je na wielką litere
ZamienNieParzyste := s;
end;
2:
{nie jestem pewien jak to się będzie sprawowało w przypadku łancucha ze znakami diakrytycznymi}
function ZamienPoM( s : string ) : string;
var
i : integer;
begin
for i := 1 to Length( s ) do // od początku stringa do końca
if ( ord( s[i] ) > ord( 'M' ) ) // sprawdź czy wartość ascii znaku jest większa od 'M' (77)
or ( ord( s[i] ) > ord( 'm' ) ) then // lub 'm' (109)
s[i] := Uppercase( s[i] ); // w takim wypadku zmień ją na dużą
ZmienPoM := s;
end;
Pisane z pamięci ale oscyluj koło tego