Function transform(c : Char) : Char;
var ordinal : Integer;
begin
	ordinal := ord(c);
	if ordinal < 0 then begin
		transform := chr(0);
		Exit;
	end;
	if ($61 <= ordinal) AND (ordinal <= $7a) then begin
		transform := c;
		Exit;
	end else if ($41 <= ordinal) AND (ordinal <= $5a) then begin
		transform := chr(ordinal + $20);
		Exit;
	end else if (128 <= ordinal) AND (ordinal <= 143) then begin
		transform := chr(ordinal + $20);
		Exit;
	end else if (144 <= ordinal) AND (ordinal <= 159) then begin
		transform := chr(ordinal + 80);
		Exit;
	end else if (160 <= ordinal) AND (ordinal <= 175) then begin
		transform := chr(ordinal);
		Exit;
	end else if (224 <= ordinal) AND (ordinal <= 239) then begin
		transform := chr(ordinal);
		Exit;
	end else if ordinal = 240 then begin
		transform := chr(ordinal + 1);
		Exit;
	end else if ordinal = 241 then begin
		transform := chr(ordinal);
		Exit;
	end else transform := chr(0);
end;