Tegnsæt på Console-App

Put al din tekst gennem nedenstående funktion.
I stedet for Writeln(variabeltekst) skriv Writeln(TerminalSkrift(variabeltekst));

function TerminalSkrift(Tekst: String):String;
var
  x: Integer;
begin
  for x:=1 to length(Tekst) do begin
    if Tekst[x]='æ' then Tekst[x]:=#145;
    if Tekst[x]='Æ' then Tekst[x]:=#146;
    if Tekst[x]='ø' then Tekst[x]:=#155;
    if Tekst[x]='Ø' then Tekst[x]:=#157;
    if Tekst[x]='å' then Tekst[x]:=#134;
    if Tekst[x]='Å' then Tekst[x]:=#143;
  end;
  Result:=Tekst;
end;