Unit P_Dung;
Interface
Uses Graph;
Const Velikost = 20;
Var Pismeno:array[1..Velikost] of string;
Procedure PrepniPismeno(X:integer);
Procedure NapisText(X,Y:integer;Text:string;M:byte);
Implementation
Procedure PrepniPismeno(X:integer);
Begin
Case X Of
1: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0506';
      Pismeno[7]:='0304050607';
      Pismeno[8]:='02030607';
      Pismeno[9]:='02030607';
      Pismeno[10]:='020304050607';
      Pismeno[11]:='020304050607';
      Pismeno[12]:='02030607';
      Pismeno[13]:='02030607';
      Pismeno[14]:='02030607';
      Pismeno[15]:='020607';
      Pismeno[16]:='0106';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
2: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0104';
      Pismeno[7]:='0102030405';
      Pismeno[8]:='01020405';
      Pismeno[9]:='010204';
      Pismeno[10]:='010203040506';
      Pismeno[11]:='0102050607';
      Pismeno[12]:='01020607';
      Pismeno[13]:='01020607';
      Pismeno[14]:='010206';
      Pismeno[15]:='0102030405';
      Pismeno[16]:='0304';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
3: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='030405';
      Pismeno[7]:='0203040506';
      Pismeno[8]:='0205';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='01';
      Pismeno[12]:='01';
      Pismeno[13]:='0102';
      Pismeno[14]:='010203';
      Pismeno[15]:='02030405';
      Pismeno[16]:='0405';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
4: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='020304';
      Pismeno[7]:='0203040506';
      Pismeno[8]:='0304050607';
      Pismeno[9]:='0203060708';
      Pismeno[10]:='02030708';
      Pismeno[11]:='02030708';
      Pismeno[12]:='02030708';
      Pismeno[13]:='020307';
      Pismeno[14]:='02030607';
      Pismeno[15]:='010203040506';
      Pismeno[16]:='0405';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
5: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='030405';
      Pismeno[7]:='0203040506';
      Pismeno[8]:='010205';
      Pismeno[9]:='01';
      Pismeno[10]:='0102030405';
      Pismeno[11]:='0102030405';
      Pismeno[12]:='01';
      Pismeno[13]:='0102';
      Pismeno[14]:='010203';
      Pismeno[15]:='02030405';
      Pismeno[16]:='0405';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
6: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0405';
      Pismeno[7]:='0203040506';
      Pismeno[8]:='02';
      Pismeno[9]:='0102';
      Pismeno[10]:='0102030405';
      Pismeno[11]:='0102030405';
      Pismeno[12]:='0102';
      Pismeno[13]:='0102';
      Pismeno[14]:='0102';
      Pismeno[15]:='01';
      Pismeno[16]:='';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
7: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0405';
      Pismeno[7]:='0203040506';
      Pismeno[8]:='010205';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='01050607';
      Pismeno[12]:='010607';
      Pismeno[13]:='01020607';
      Pismeno[14]:='0102030607';
      Pismeno[15]:='020304050607';
      Pismeno[16]:='040506';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
8: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='05';
      Pismeno[6]:='01020508';
      Pismeno[7]:='0102030607';
      Pismeno[8]:='02030607';
      Pismeno[9]:='02030607';
      Pismeno[10]:='020304050607';
      Pismeno[11]:='020304050607';
      Pismeno[12]:='02030607';
      Pismeno[13]:='02030607';
      Pismeno[14]:='02030607';
      Pismeno[15]:='02060708';
      Pismeno[16]:='0107';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
9: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='01';
      Pismeno[7]:='01';
      Pismeno[8]:='01';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='01';
      Pismeno[12]:='01';
      Pismeno[13]:='01';
      Pismeno[14]:='01';
      Pismeno[15]:='0102';
      Pismeno[16]:='01';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
   End;
10: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='06';
      Pismeno[7]:='0405';
      Pismeno[8]:='0405';
      Pismeno[9]:='0405';
      Pismeno[10]:='0405';
      Pismeno[11]:='0405';
      Pismeno[12]:='0405';
      Pismeno[13]:='0405';
      Pismeno[14]:='0405';
      Pismeno[15]:='01020304';
      Pismeno[16]:='010203';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
11: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0207';
      Pismeno[7]:='0102030506';
      Pismeno[8]:='02030506';
      Pismeno[9]:='02030506';
      Pismeno[10]:='02030405';
      Pismeno[11]:='0203040506';
      Pismeno[12]:='0203050607';
      Pismeno[13]:='02030607';
      Pismeno[14]:='02030607';
      Pismeno[15]:='020607';
      Pismeno[16]:='0106';
      Pismeno[17]:='05';
      Pismeno[18]:='04';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
12: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0102';
      Pismeno[7]:='010203';
      Pismeno[8]:='0203';
      Pismeno[9]:='0203';
      Pismeno[10]:='0203';
      Pismeno[11]:='0203';
      Pismeno[12]:='0203';
      Pismeno[13]:='0203';
      Pismeno[14]:='0203';
      Pismeno[15]:='020304050607';
      Pismeno[16]:='010203040506';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
13: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='010408';
      Pismeno[7]:='0102030405070809';
      Pismeno[8]:='02030405060809';
      Pismeno[9]:='020305060910';
      Pismeno[10]:='020305060910';
      Pismeno[11]:='020305060910';
      Pismeno[12]:='020305060910';
      Pismeno[13]:='0203050609';
      Pismeno[14]:='02030509';
      Pismeno[15]:='020408';
      Pismeno[16]:='0104';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
14: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0105';
      Pismeno[7]:='010203040506';
      Pismeno[8]:='02030506';
      Pismeno[9]:='02030607';
      Pismeno[10]:='02030607';
      Pismeno[11]:='02030607';
      Pismeno[12]:='02030607';
      Pismeno[13]:='02030607';
      Pismeno[14]:='020306';
      Pismeno[15]:='0206';
      Pismeno[16]:='0105';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
15: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0304';
      Pismeno[7]:='02030405';
      Pismeno[8]:='0102040506';
      Pismeno[9]:='01050607';
      Pismeno[10]:='010607';
      Pismeno[11]:='010607';
      Pismeno[12]:='010607';
      Pismeno[13]:='010206';
      Pismeno[14]:='0102030506';
      Pismeno[15]:='02030405';
      Pismeno[16]:='0304';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
16: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='010405';
      Pismeno[7]:='010203040506';
      Pismeno[8]:='0203050607';
      Pismeno[9]:='02030607';
      Pismeno[10]:='02030607';
      Pismeno[11]:='020305';
      Pismeno[12]:='020304';
      Pismeno[13]:='0203';
      Pismeno[14]:='0203';
      Pismeno[15]:='02';
      Pismeno[16]:='01';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
17: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0304';
      Pismeno[7]:='02030405';
      Pismeno[8]:='0102040506';
      Pismeno[9]:='01050607';
      Pismeno[10]:='010607';
      Pismeno[11]:='010607';
      Pismeno[12]:='01040607';
      Pismeno[13]:='010203040506';
      Pismeno[14]:='0102030506';
      Pismeno[15]:='020304050607';
      Pismeno[16]:='030407';
      Pismeno[17]:='07';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
18: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0105';
      Pismeno[7]:='010203040506';
      Pismeno[8]:='02030607';
      Pismeno[9]:='02030607';
      Pismeno[10]:='020306';
      Pismeno[11]:='0203040506';
      Pismeno[12]:='0203050607';
      Pismeno[13]:='0203060708';
      Pismeno[14]:='02030708';
      Pismeno[15]:='020708';
      Pismeno[16]:='0107';
      Pismeno[17]:='06';
      Pismeno[18]:='05';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
19: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='020304';
      Pismeno[7]:='01030405';
      Pismeno[8]:='0105';
      Pismeno[9]:='0102';
      Pismeno[10]:='01020304';
      Pismeno[11]:='02030405';
      Pismeno[12]:='040506';
      Pismeno[13]:='0506';
      Pismeno[14]:='05';
      Pismeno[15]:='01020405';
      Pismeno[16]:='0203';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
20: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0102030405060708';
      Pismeno[7]:='01020304050607';
      Pismeno[8]:='0203';
      Pismeno[9]:='0203';
      Pismeno[10]:='0102';
      Pismeno[11]:='0102';
      Pismeno[12]:='0102';
      Pismeno[13]:='010203';
      Pismeno[14]:='020304';
      Pismeno[15]:='03040506';
      Pismeno[16]:='05';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
21: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0207';
      Pismeno[7]:='020506';
      Pismeno[8]:='010506';
      Pismeno[9]:='010506';
      Pismeno[10]:='010506';
      Pismeno[11]:='010506';
      Pismeno[12]:='010506';
      Pismeno[13]:='01020506';
      Pismeno[14]:='01020506';
      Pismeno[15]:='020304050607';
      Pismeno[16]:='0306';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
22: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='06';
      Pismeno[7]:='0102050607';
      Pismeno[8]:='01020607';
      Pismeno[9]:='01020607';
      Pismeno[10]:='01020607';
      Pismeno[11]:='01020607';
      Pismeno[12]:='010206';
      Pismeno[13]:='01020506';
      Pismeno[14]:='010205';
      Pismeno[15]:='020304';
      Pismeno[16]:='03';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
23: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0510';
      Pismeno[7]:='01020506091011';
      Pismeno[8]:='010205061011';
      Pismeno[9]:='010205061011';
      Pismeno[10]:='010205061011';
      Pismeno[11]:='010205061011';
      Pismeno[12]:='0102050610';
      Pismeno[13]:='010205060910';
      Pismeno[14]:='0102050609';
      Pismeno[15]:='0102030405060708';
      Pismeno[16]:='0306';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
24: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='010708';
      Pismeno[7]:='01020607';
      Pismeno[8]:='01020306';
      Pismeno[9]:='020305';
      Pismeno[10]:='030405';
      Pismeno[11]:='030405';
      Pismeno[12]:='030405';
      Pismeno[13]:='030506';
      Pismeno[14]:='02050607';
      Pismeno[15]:='0102060708';
      Pismeno[16]:='0107';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
25: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='0206';
      Pismeno[7]:='020506';
      Pismeno[8]:='010506';
      Pismeno[9]:='010506';
      Pismeno[10]:='010506';
      Pismeno[11]:='010506';
      Pismeno[12]:='010506';
      Pismeno[13]:='01020506';
      Pismeno[14]:='01020506';
      Pismeno[15]:='0203040506';
      Pismeno[16]:='030506';
      Pismeno[17]:='0607';
      Pismeno[18]:='010607';
      Pismeno[19]:='01020304050607';
      Pismeno[20]:='02030405';
    End;
26: Begin
      Pismeno[1]:='';
      Pismeno[2]:='';
      Pismeno[3]:='';
      Pismeno[4]:='';
      Pismeno[5]:='';
      Pismeno[6]:='01020304050607';
      Pismeno[7]:='010203040506';
      Pismeno[8]:='05';
      Pismeno[9]:='05';
      Pismeno[10]:='0203040506';
      Pismeno[11]:='0102030405';
      Pismeno[12]:='03';
      Pismeno[13]:='02';
      Pismeno[14]:='01';
      Pismeno[15]:='01020304050607';
      Pismeno[16]:='010203040506';
      Pismeno[17]:='';
      Pismeno[18]:='';
      Pismeno[19]:='';
      Pismeno[20]:='';
    End;
End;
End;
Procedure NapisText(X,Y:integer;Text:string;M:byte);
  Var i,o,p,a,b,d,f:integer;
  Begin
    For i:=1 to Length(Text) Do Begin
      f:=Ord(Text[i]);
      d:=0;      
      if f<>32 then PrepniPismeno(f-64) else PrepniPismeno(1);
      For o:=1 to Velikost Do Begin
        For p:=1 to Length(Pismeno[o]) div 2 Do Begin
          Val(Copy(Pismeno[o],p*2-1,2),a,b);
          if f<>32 then PutPixel(X+a,Y+o,7);
          if a>d then d:=a;
        End;
      End;
      X:=X+d+M;
    End;
End;

Begin End.