1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i: Integer;

begin
  for i := 1 to 254 do writeln(IntToStr(i) + '   ' + chr(i));
  readln;
end.					

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  write(chr(199));
  readln;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function IBMAsciiToAnsi(s: string): string;
var
  i: integer;
begin
  Result := '';
  for i := 0 to Length(s) do
  begin
    case s[i] of
      #142: Result := Result + #196; //Ä
      #153: Result := Result + #214; //Ö
      #154: Result := Result + #220; //Ü
      #132: Result := Result + #228; //ä
      #148: Result := Result + #246; //ö
      #129: Result := Result + #252; //ü
      #225: Result := Result + #223; //ß
    else
      Result := Result + s[i];
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

Var
 Ascii, Ansi: String;
begin
 Ascii := 'äöü';
 SetLength(Ansi, length(Ascii));
 CharToOemBuff(Pointer(Ascii), Pointer(Ansi), Length(Ascii));
 Writeln('Ascii:',Ascii,' Ansi:',Ansi);
 Readln;
end.