uses graph;
var
  gd, gm, err: integer;
  st: string;

const
  bits: array[1 .. 11] of array[1 .. 14] of word = (
    ($000,$000,$07C,$C6,$0CE,$0DE,$0F6,$0E6,$0C6,$0C6,$07C,$000,$000,$000),
    ($000,$000,$018,$38,$078,$018,$018,$018,$018,$018,$03C,$000,$000,$000),
    ($000,$000,$07C,$C6,$0C6,$006,$01C,$030,$060,$0C6,$0FE,$000,$000,$000),
    ($000,$000,$07C,$C6,$0C6,$006,$01C,$006,$0C6,$0C6,$07C,$000,$000,$000),
    ($000,$000,$00C,$1C,$03C,$06C,$0CC,$0CC,$0FE,$00C,$00C,$000,$000,$000),
    ($000,$000,$0FE,$C0,$0C0,$0FC,$006,$006,$006,$0C6,$07C,$000,$000,$000),
    ($000,$000,$07C,$C6,$0C0,$0C0,$0FC,$0C6,$0C6,$0C6,$07C,$000,$000,$000),
    ($000,$000,$0FE,$C6,$086,$004,$00C,$018,$018,$030,$030,$000,$000,$000),
    ($000,$000,$07C,$C6,$0C6,$0C6,$07C,$0C6,$0C6,$0C6,$07C,$000,$000,$000),
    ($000,$000,$07C,$C6,$0C6,$0C6,$07E,$006,$006,$0C6,$07C,$000,$000,$000),
    ($018,$018,$07C,$C6,$0C2,$0C0,$07C,$006,$086,$0C6,$07C,$018,$018,$000)
  );

{$F+}
procedure putCh_0(var px, py: integer; ch: char);
var x, y: integer;
begin
  for x := 0 to 7 do
    for y := 1 to 14 do begin
      if(bits[pos(ch, st)][y] shr x) and $01 > 0
      then putpixel(px + (7 - x), py + y, white);
    end;
  inc(px, 10);
end;
procedure putCh_90(var px, py: integer; ch: char);
var x, y: integer;
begin
  for x := 0 to 7 do
    for y := 14 downto 1 do begin
      if (bits[pos(ch, st)][y] shl x) and $80 > 0
      then putpixel(px + (14 - y), py + x, white);
    end;
  inc(py, 10);
end;
procedure putCh_180(var px, py: integer; ch: char);
var x, y: integer;
begin
  for x := 0 to 7 do
    for y := 14 downto 1 do begin
      if(bits[pos(ch, st)][y] shr x) and $01 > 0
      then putpixel(px + x, py + (14 - y), white);
    end;
  dec(px, 10);
end;
procedure putCh_270(var px, py: integer; ch: char);
var x, y: integer;
begin
  for x := 7 downto 0 do
    for y := 14 downto 1 do begin
      if (bits[pos(ch, st)][y] shr x) and ($01) > 0
      then putpixel(px + y, py + x, white);
    end;
  dec(py, 10);
end;
{$F-}

type
  TAngle = (ang_0, ang_90, ang_180, ang_270);
  TPutProc = procedure(var px, py: integer; ch: char);

procedure PrintString(angle: TAngle; px, py: integer; s: string);
const
  procFunc: array[TAngle] of TPutProc =
  (putCh_0, putCh_90, putCh_180, putCh_270);
var i: integer;
begin
  for i := 1 to length(s) do
    procFunc[angle](px, py, s[i]);
end;


begin
  initgraph(gd, gm, '');
  err := graphresult;
  if err <> grok then begin
    writeln('error: ' + grapherrormsg(err));
    readln; halt(100);
  end;

  st := '0123456789$'; { только эти символы можно использовать !!! }
  PrintString(ang_0, 10, 10, '$1234');
  PrintString(ang_90, 100, 100, '$1234');
  PrintString(ang_180, 200, 200, '$2345');
  PrintString(ang_270, 300, 300, '$2345');

  readln;
  closegraph;
end.