unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, DigitalniText_TLB, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Cislo: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Tex: TLabel;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    OST: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    LB: TListBox;
    Vys: TLabel;
    Button37: TButton;
    Button38: TButton;
    Ra: TRadioButton;
    RadioButton1: TRadioButton;
    DIG: TImage;
    Prd: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure CisloClick(Sender: TObject);
    procedure OSTClick(Sender: TObject);
    procedure Vypocti(X: string);
    procedure Vypocet(Typ,Od,Operace:integer;var Pocet:integer);
    function Faktorial(X:double):double;
    function Mocnina(X,Y:double):double;
    Procedure Uprav;
    procedure RaClick(Sender: TObject);
    Procedure Z(a,b:integer);
    Procedure Vycisti;
    Procedure NapisPismeno7x5(Pismeno: String; X, Y :integer);
    Procedure NapisText7x5(Text:String; X,Y:integer);
    Procedure NapisSymbol7x5(Pismeno:String; X,Y:integer);
    Procedure Zobraz;
  private
    { Private declarations }

  public
    { Public declarations }
  End;

var
  Form1: TForm1;
  Ans:double;
  Gon:double;
  Osta:integer;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Tex.Caption :='';Vys.caption:='';
   Ans:=0;
   RaClick(Nil);
   Vycisti;
end;

procedure TForm1.CisloClick(Sender: TObject);
begin
   Tex.Caption :=tex.caption+(sender as tbutton).caption;
   prd.Caption :=prd.caption+(sender as tbutton).caption;
   Zobraz;
end;

procedure TForm1.OSTClick(Sender: TObject);
Var s,s2,s3:string;
begin
   s:='';s2:=(sender as tbutton).caption;
   If s2='Ans' then s:='~'
   else if s2='sin' then s:='s'
   else if s2='cos' then s:='k'
   else if s2='tan' then s:='t'
   else if s2='log' then s:='g'
   else if s2='v--' then s:='o'
   else if s2='x^2' then s:='d'
   else if s2='x^-1' then s:='u'
   else if s2='3v--' then s:='r'
   else if s2='x^3' then s:='q'
   else if s2='Xv--' then s:='w'
   else if s2='Pí' then s:='¦'
   else if s2='ln' then s:='n'
   else if s2='AC' then tex.caption:=''
   else if s2='DEL' then tex.caption:=copy(tex.caption,1,length(tex.caption)-1)
   else if s2='(-)' then s:='-'
   else if s2='e^x' then s:='a'
   else if s2='10^x' then s:='b'
   else if s2='=' then Uprav;
   Tex.Caption :=tex.caption+s;
   Zobraz;
end;

Procedure TForm1.Uprav;
  Var s,d,f,Mno:string;
      i,o:integer;W:double;
Begin
  Mno:='0123456789!,dqu';
  s:=Tex.caption;
  (*Plus mínus konverze*)
  i:=1;
  while i<=Length(s) do  begin
    d:=Copy(s,i,2);
    If d='++' then f:='+'
      else if d='+-' then f:='-'
      else if d='-+' then f:='-'
      else if d='--' then f:='+'
      else f:='';
    if f<>'' then Begin
       s:=copy(s,1,i-1) + f +copy(s,i+2,length(s)-i-1);
       i:=i-1;
    End;
    i:=i+1;
  End;
  For i:=1 to length(s) do begin
     d:=copy(s,i,1);
     if d='+' then f:='l' else if d='-' then f:='m' else f:='';
     if f<>'' then begin
        d:=Copy(s,i-1,1);
        for o:=1 to length(Mno) do Begin
          if Copy(Mno,o,1)=D then s:=copy(s,1,i-1)+f+copy(s,i+1,length(s)-i);
        End;
     end;
  end;
  (*Čísla z paměti*)
  i:=1;
  while i<= length(s) do begin
     d:=copy(s,i,1);
     If (d='~') or (d='¦') or ((d>='A') and (d<='Z')) then begin
        If d='~' then w:=Ans
        else if d='¦' then w:=pi;
        s:=copy(s,1,i-1)+floattostr(W)+copy(s,i+1,length(s)-i);
        s:=s;
     End;
     i:=i+1;
  end;
  Vypocti('('+s+')');
End;
procedure TForm1.Vypocti(X: string);
Var a,b,c,d:integer;
    s:string;
Label Sta;
begin
Sta:
  b:=1;
  For a:=2 to length(X) do begin
     if copy(x,a,1)='(' then b:=a;
     if copy(x,a,1)=')' then begin
        if a=length(x) then begin
            b:=2;LB.Clear;
            d:=1;
            for c:=2 to length(x)-1 do begin
               s:=Copy(x,c,1);
               If ((s<'0') or (s>'9')) and (s<>',') and (s<>'+') and (s<>'-') then begin
                  Lb.Items.Add(Copy(X,b,c-b));
                  lb.items.add(Copy(x,c,1));
                  b:=c+1;d:=d+2;
               end;
            end;
            Lb.items.add(Copy(x,b,length(x)-b));
            c:=0;
            while c<=d-1 do begin
               If lb.items.Strings[c] ='' then begin lb.items.Delete(c);d:=d-1;c:=c-1;End;
               c:=c+1;
            End;
            c:=0;(*X^Y  Yv--X*);
            while c<= d-1 do begin
               s:=Lb.items.strings[c];
               If s='^' then Begin Vypocet(3,c,7,d);c:=c-1;End;
               If s='w' then Begin Vypocet(3,c,8,d);c:=c-1;End;
               c:=c+1;
            end;
            c:=0;(*! ^2 ^3 ^-1*);
            while c<= d-1 do begin
               s:=Lb.items.strings[c];
               If s='!' then Begin Vypocet(1,c,1,d);c:=c-1;End;
               If s='d' then Begin Vypocet(1,c,2,d);c:=c-1;End;
               If s='q' then Begin Vypocet(1,c,3,d);c:=c-1;End;
               If s='u' then Begin Vypocet(1,c,4,d);c:=c-1;End;
               c:=c+1;
            end;
            c:=0;(*SIN COS TAN LOG LN 2,3 ODMOCNINA, e^x, 10^x*);
            while c<= d-1 do begin
               s:=Lb.items.strings[c];
               If s='s' then Begin Vypocet(2,c,1,d);c:=c-1;End;
               If s='k' then Begin Vypocet(2,c,2,d);c:=c-1;End;
               If s='t' then Begin Vypocet(2,c,3,d);c:=c-1;End;
               If s='g' then Begin Vypocet(2,c,4,d);c:=c-1;End;
               If s='n' then Begin Vypocet(2,c,5,d);c:=c-1;End;
               If s='o' then Begin Vypocet(2,c,6,d);c:=c-1;End;
               If s='r' then Begin Vypocet(2,c,7,d);c:=c-1;End;
               If s='a' then Begin Vypocet(2,c,8,d);c:=c-1;End;
               If s='b' then Begin Vypocet(2,c,9,d);c:=c-1;End;
               c:=c+1;
            end;
            c:=0;(*KOMBINACE VARIACE*);
            while c<= d-1 do begin
               s:=Lb.items.strings[c];
               If s='e' then Begin Vypocet(3,c,5,d);c:=c-1;End;
               If s='c' then Begin Vypocet(3,c,6,d);c:=c-1;End;
               c:=c+1;
            end;
            c:=0;(*NÁSOBENÍ DĚLENÍ*)
            while c<= d-1 do begin
               s:=Lb.items.strings[c];
               If s='*' then Begin Vypocet(3,c,1,d);c:=c-1;End;
               If s='/' then Begin Vypocet(3,c,2,d);c:=c-1;End;
               c:=c+1;
            end;
            c:=0;(*SČÍTÁNÍ ODČÍTÁNÍ*);
            while c<= d-1 do begin
               s:=Lb.items.strings[c];
               If s='l' then Begin Vypocet(3,c,3,d);c:=c-1;End;
               If s='m' then Begin Vypocet(3,c,4,d);c:=c-1;End;
               c:=c+1;
            end;
        end else begin
           (*rekurze - výpočet vnitřní závorky*)
           Vypocti(Copy(X,b,a-b+1));
           X:=Copy(X,1,b-1)+lb.Items.strings[0]+copy(x,a+1,length(x)-a);
           Goto Sta;
        End;
     End;
  End;
  vys.caption:=LB.items.strings[0];
  Ans:=Strtofloat(vys.caption);
end;
(**)
procedure TForm1.Vypocet(Typ,Od,Operace:integer;Var Pocet:integer);
Var i,o,p:double;u:integer;
Begin
  Case Typ of
    3: Begin
         i:=StrToFloat(lb.items.strings[Od-1]);
         o:=StrToFloat(lb.items.strings[Od+1]);
         Case Operace of
            1:p:=i*o;
            2:p:=i/o;
            3:p:=i+o;
            4:p:=i-o;
            5:p:=Faktorial(i)/Faktorial(i-o);
            6:p:=Faktorial(i)/Faktorial(i-o)/Faktorial(o);
            7:p:=Mocnina(i,o);
            8:p:=Mocnina(o,(1/i));
         End;
         lb.items.add (floattostr(p));
         lb.items.exchange(od,Pocet);
         Lb.items.Delete(Pocet);
         Lb.items.Delete(Od-1);
         lb.items.delete(od);
         Pocet:=Pocet-2;
       End;
    2: Begin
         i:=StrToFloat(lb.items.strings[Od+1]);
         case Operace of
            1:p:=sin(i*gon);
            2:p:=cos(i*gon);
            3:p:=sin(i*gon)/cos(i*gon);
            4:p:=ln(i)/ln(10);
            5:p:=ln(i);
            6:p:=sqrt(i);
            7:p:=Mocnina(i,(1/3));
            8:p:=Exp(i);
            9:p:=Mocnina(10,i);
         End;
         lb.items.add (floattostr(p));
         lb.items.exchange(od,Pocet);
         Lb.items.Delete(Pocet);
         Lb.items.Delete(Od+1);
         Pocet:=Pocet-1;
       End;
    1: Begin
         i:=StrToFloat(lb.items.strings[Od-1]);
         case Operace of
            1:p:=Faktorial(i);
            2:p:=i*i;
            3:p:=i*i*i;
            4:p:=1/i;
         End;
         lb.items.add (floattostr(p));
         lb.items.exchange(od,Pocet);
         Lb.items.Delete(Pocet);
         Lb.items.Delete(Od-1);
         Pocet:=Pocet-1;
       End;
  End;
End ;
function TForm1.Faktorial(X:double):double;
Var i:integer;Y:double;
Begin
  Y:=1;
  if X>0 then For i:=1 to round(X) do Y:=Y*i;
  Faktorial:=Y;
End;
function TForm1.Mocnina(X,Y:double):double;
Begin
   Mocnina:=Exp(Y*ln(X));
End;
procedure TForm1.RaClick(Sender: TObject);
begin
   If Ra.Checked =true Then Gon:=Pi/180 else Gon:=1;
end;
Procedure TForm1.Z(a,b:integer);
Begin
   Dig.Canvas.Pixels[a*2-1,b*2-1]:=Tex.Font.Color ;
End;
Procedure TForm1.Vycisti;
Var a,b:integer;
Begin
  Dig.Canvas.Brush.Color:=vys.color;
  Dig.Canvas.FloodFill(1,1,vys.color,fsborder);
  for a:=1 to 250 do for b:=1 to 7 do Begin
    Dig.Canvas.Pixels[a*2-1,b*2-1]:=tex.color;
  End;
End;

Procedure TForm1.NapisPismeno7x5(Pismeno: String; X, Y :integer);
Begin
        If Pismeno = 'A' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'B' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'C' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 0, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'D' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 0, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6);End Else
        If Pismeno = 'E' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'F' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6);End Else
        If Pismeno = 'G' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'H' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'I' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 2, Y + 1); z(X + 2, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'J' Then Begin z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 3, Y + 1); z(X + 3, Y + 2); z(X + 3, Y + 3); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6);End Else
        If Pismeno = 'K' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 2, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'L' Then Begin z(X + 0, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 0, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'M' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 1, Y + 1); z(X + 3, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 2, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'N' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 1, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'O' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'P' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6);End Else
        If Pismeno = 'Q' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'R' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'S' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 4); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'T' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 2, Y + 1); z(X + 2, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 2, Y + 6);End Else
        If Pismeno = 'U' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'V' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 1, Y + 5); z(X + 3, Y + 5); z(X + 2, Y + 6);End Else
        If Pismeno = 'W' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 2, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'X' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 1, Y + 2); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'Y' Then Begin z(X + 0, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 1, Y + 2); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 2, Y + 6);End Else
        If Pismeno = 'Z' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else

        If Pismeno = 'a' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 3); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'b' Then Begin z(X + 0, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'c' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'd' Then Begin z(X + 4, Y + 0); z(X + 4, Y + 1); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'e' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'f' Then Begin z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 4, Y + 1); z(X + 1, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 1, Y + 5); z(X + 1, Y + 6);End Else
        If Pismeno = 'g' Then Begin z(X + 1, Y + 1); z(X + 2, Y + 1); z(X + 3, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'h' Then Begin z(X + 0, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'i' Then Begin z(X + 2, Y + 0); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'j' Then Begin z(X + 3, Y + 0); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 3, Y + 3); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6);End Else
        If Pismeno = 'k' Then Begin z(X + 0, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 0, Y + 5); z(X + 2, Y + 5); z(X + 0, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'l' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 2, Y + 1); z(X + 2, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'm' Then Begin z(X + 1, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 2, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 2, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'n' Then Begin z(X + 0, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'o' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'p' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6);End Else
        If Pismeno = 'q' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 4, Y + 5); z(X + 4, Y + 6);End Else
        If Pismeno = 'r' Then Begin z(X + 0, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 0, Y + 5); z(X + 0, Y + 6);End Else
        If Pismeno = 's' Then Begin z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 't' Then Begin z(X + 1, Y + 0); z(X + 1, Y + 1); z(X + 1, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 1, Y + 5); z(X + 4, Y + 5); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'u' Then Begin z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'v' Then Begin z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 1, Y + 5); z(X + 3, Y + 5); z(X + 2, Y + 6);End Else
        If Pismeno = 'w' Then Begin z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 2, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'x' Then Begin z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 1, Y + 3); z(X + 3, Y + 3); z(X + 2, Y + 4); z(X + 1, Y + 5); z(X + 3, Y + 5); z(X + 0, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = 'y' Then Begin z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 4, Y + 3); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = 'z' Then Begin z(X + 0, Y + 2); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 2); z(X + 3, Y + 3); z(X + 2, Y + 4); z(X + 1, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = '0' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 4, Y + 3); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); End Else
        If Pismeno = '1' Then Begin z(X + 2, Y + 0); z(X + 1, Y + 1); z(X + 2, Y + 1); z(X + 2, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '2' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 4, Y + 2); z(X + 3, Y + 3); z(X + 2, Y + 4); z(X + 1, Y + 5); z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = '3' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 3, Y + 1); z(X + 2, Y + 2); z(X + 3, Y + 3); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '4' Then Begin z(X + 3, Y + 0); z(X + 2, Y + 1); z(X + 3, Y + 1); z(X + 1, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 3, Y + 5); z(X + 3, Y + 6);End Else
        If Pismeno = '5' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 0, Y + 1); z(X + 0, Y + 2); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 3); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '6' Then Begin z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 0, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '7' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 4, Y + 0); z(X + 4, Y + 1); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 1, Y + 5); z(X + 1, Y + 6);End Else
        If Pismeno = '8' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '9' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3); z(X + 4, Y + 4); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6);End Else
        If Pismeno = '+' Then Begin z(X + 2, Y + 1); z(X + 2, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 5);End Else
        If Pismeno = '-' Then Begin z(X + 0, Y + 3); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 4, Y + 3);End Else
        If Pismeno = '*' Then Begin z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 1, Y + 2); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5);End Else
        If Pismeno = '/' Then Begin z(X + 4, Y + 1); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 0, Y + 5);End Else
        If Pismeno = '\' Then Begin z(X + 0, Y + 1); z(X + 1, Y + 2); z(X + 2, Y + 3); z(X + 3, Y + 4); z(X + 4, Y + 5);End Else
        If Pismeno = Chr(39) Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 2, Y + 1); z(X + 1, Y + 2);End Else
        If Pismeno = '.' Then Begin z(X + 1, Y + 5); z(X + 2, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6);End Else
        If Pismeno = ',' Then Begin z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 1, Y + 6);End Else
        If Pismeno = ';' Then Begin z(X + 1, Y + 1); z(X + 2, Y + 1); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 1, Y + 5); z(X + 2, Y + 5);End Else
        If Pismeno = '?' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 0, Y + 1); z(X + 4, Y + 1); z(X + 4, Y + 2); z(X + 3, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 6);End Else
        If Pismeno = '!' Then Begin z(X + 2, Y + 0); z(X + 2, Y + 1); z(X + 2, Y + 2); z(X + 2, Y + 3); z(X + 2, Y + 4); z(X + 2, Y + 6);End Else
        If Pismeno = '''' Then Begin z(X + 1, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 3, Y + 1);End Else
        If Pismeno = '<' Then Begin z(X + 4, Y + 0); z(X + 3, Y + 1); z(X + 2, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 4); z(X + 3, Y + 5); z(X + 4, Y + 6);End Else
        If Pismeno = '>' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 1); z(X + 2, Y + 2); z(X + 3, Y + 3); z(X + 2, Y + 4); z(X + 1, Y + 5); z(X + 0, Y + 6);End Else
        If Pismeno = '[' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 1, Y + 2); z(X + 1, Y + 3); z(X + 1, Y + 4); z(X + 1, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = ']' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 3, Y + 1); z(X + 3, Y + 2); z(X + 3, Y + 3); z(X + 3, Y + 4); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '(' Then Begin z(X + 3, Y + 0); z(X + 2, Y + 1); z(X + 1, Y + 2); z(X + 1, Y + 3); z(X + 1, Y + 4); z(X + 2, Y + 5); z(X + 3, Y + 6);End Else
        If Pismeno = ')' Then Begin z(X + 2, Y + 0); z(X + 3, Y + 1); z(X + 4, Y + 2); z(X + 4, Y + 3); z(X + 4, Y + 4); z(X + 3, Y + 5); z(X + 2, Y + 6);End Else
        If Pismeno = '' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 1); z(X + 3, Y + 2); z(X + 3, Y + 3); z(X + 3, Y + 4); z(X + 2, Y + 5); z(X + 1, Y + 6);End Else
        If Pismeno = '%' Then Begin z(X + 0, Y + 0); z(X + 1, Y + 0); z(X + 0, Y + 1); z(X + 1, Y + 1); z(X + 4, Y + 1); z(X + 3, Y + 2); z(X + 2, Y + 3); z(X + 1, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 4, Y + 5); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = '@' Then Begin z(X + 1, Y + 1); z(X + 2, Y + 1); z(X + 0, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '#' Then Begin z(X + 1, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 2); z(X + 1, Y + 3); z(X + 3, Y + 3); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 1, Y + 5); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = ';' Then Begin z(X + 1, Y + 1); z(X + 2, Y + 1); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 2, Y + 5); z(X + 1, Y + 6);End Else
        If Pismeno = '=' Then Begin z(X + 0, Y + 2); z(X + 1, Y + 2); z(X + 2, Y + 2); z(X + 3, Y + 2); z(X + 4, Y + 2); z(X + 0, Y + 4); z(X + 1, Y + 4); z(X + 2, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4);End Else
        If Pismeno = '_' Then Begin z(X + 0, Y + 6); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = '^' Then Begin z(X + 2, Y + 0); z(X + 1, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 4, Y + 2);End Else
        If Pismeno = '&' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 0, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 3, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 0, Y + 4); z(X + 2, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6); z(X + 4, Y + 6);End Else
        If Pismeno = '$' Then Begin z(X + 1, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 2, Y + 1); z(X + 3, Y + 1); z(X + 4, Y + 1); z(X + 0, Y + 2); z(X + 1, Y + 2); z(X + 3, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 3); z(X + 3, Y + 3); z(X + 1, Y + 4); z(X + 3, Y + 4); z(X + 4, Y + 4); z(X + 0, Y + 5); z(X + 1, Y + 5); z(X + 2, Y + 5); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '°' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 0, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 3, Y + 2); z(X + 1, Y + 3); z(X + 2, Y + 3);End Else
        If Pismeno = '{' Then Begin z(X + 2, Y + 0); z(X + 3, Y + 0); z(X + 1, Y + 1); z(X + 1, Y + 2); z(X + 0, Y + 3); z(X + 1, Y + 4); z(X + 1, Y + 5); z(X + 2, Y + 6); z(X + 3, Y + 6);End Else
        If Pismeno = '}' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 3, Y + 1); z(X + 3, Y + 2); z(X + 4, Y + 3); z(X + 3, Y + 4); z(X + 3, Y + 5); z(X + 1, Y + 6); z(X + 2, Y + 6);End Else
        If Pismeno = 'ß' Then Begin z(X + 1, Y + 0); z(X + 2, Y + 0); z(X + 0, Y + 1); z(X + 3, Y + 1); z(X + 0, Y + 2); z(X + 3, Y + 2); z(X + 0, Y + 3); z(X + 2, Y + 3); z(X + 0, Y + 4); z(X + 3, Y + 4); z(X + 0, Y + 5); z(X + 4, Y + 5); z(X + 0, Y + 6); z(X + 2, Y + 6); z(X + 3, Y + 6); z(X + 4, Y + 6);End;

        If Pismeno = 'î' Then Begin Z(X + 2, Y + 0);Z(X + 3, Y + 0);Z(X + 4, Y + 0);Z(X + 2, Y + 1);Z(X + 2, Y + 2);Z(X + 2, Y + 3);Z(X + 0, Y + 4);Z(X + 2, Y + 4);Z(X + 1, Y + 5);Z(X + 2, Y + 5);Z(X + 2, Y + 6);End Else
        If Pismeno = 'Ä' Then Begin Z(X + 4, Y + 0);Z(X + 3, Y + 1);Z(X + 4, Y + 1);Z(X + 4, Y + 2);Z(X + 0, Y + 3);Z(X + 1, Y + 3);Z(X + 2, Y + 3);Z(X + 4, Y + 3);Z(X + 4, Y + 4);End Else
        If Pismeno = 'Ć' Then Begin Z(X + 0, Y + 0);Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 3, Y + 1);Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 2, Y + 2);Z(X + 3, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 2, Y + 4);End Else
        If Pismeno = 'Ź' Then Begin Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 0, Y + 1);Z(X + 3, Y + 1);Z(X + 2, Y + 2);Z(X + 1, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 2, Y + 4);Z(X + 3, Y + 4);End Else
        If Pismeno = 'X' Then Begin Z(X + 0, Y + 0);Z(X + 4, Y + 0);Z(X + 1, Y + 1);Z(X + 3, Y + 1);Z(X + 2, Y + 2);Z(X + 1, Y + 3);Z(X + 3, Y + 3);Z(X + 0, Y + 4);Z(X + 4, Y + 4);End Else
        If Pismeno = 'É' Then Begin Z(X + 1, Y + 0);Z(X + 3, Y + 0);Z(X + 2, Y + 1);Z(X + 1, Y + 2);Z(X + 3, Y + 2);End Else
        If Pismeno = 'ĺ' Then Begin Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 3, Y + 0);Z(X + 0, Y + 1);Z(X + 1, Y + 1);Z(X + 4, Y + 1);Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 0, Y + 3);Z(X + 1, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 0, Y + 5);Z(X + 1, Y + 5);Z(X + 4, Y + 5);Z(X + 1, Y + 6);Z(X + 2, Y + 6);Z(X + 3, Y + 6);End Else
        If Pismeno = 'Ĺ' Then Begin Z(X + 0, Y + 0);Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 3, Y + 0);Z(X + 0, Y + 1);Z(X + 1, Y + 1);Z(X + 4, Y + 1);Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 4, Y + 2);Z(X + 0, Y + 3);Z(X + 1, Y + 3);Z(X + 2, Y + 3);Z(X + 3, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 0, Y + 5);Z(X + 1, Y + 5);Z(X + 0, Y + 6);Z(X + 1, Y + 6);End Else
        If Pismeno = '¦' Then Begin Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 2, Y + 2);Z(X + 3, Y + 2);Z(X + 4, Y + 2);Z(X + 1, Y + 3);Z(X + 3, Y + 3);Z(X + 1, Y + 4);Z(X + 3, Y + 4);Z(X + 1, Y + 5);Z(X + 3, Y + 5);Z(X + 0, Y + 6);Z(X + 3, Y + 6);Z(X + 4, Y + 6);End;

End;
Procedure TForm1.NapisText7x5(Text:String; X,Y:integer);
Var i:integer;
Begin
    For i := 1 To Length(Text) do NapisPismeno7x5(Copy(Text, i, 1), X + (i - 1) * 6, Y);
End;
Procedure TForm1.NapisSymbol7x5(Pismeno:String; X,Y:integer);
Begin
        If Pismeno = 'o' Then Begin Z(X + 2, Y + 0);Z(X + 3, Y + 0);Z(X + 4, Y + 0);Z(X + 2, Y + 1);Z(X + 2, Y + 2);Z(X + 2, Y + 3);Z(X + 0, Y + 4);Z(X + 2, Y + 4);Z(X + 1, Y + 5);Z(X + 2, Y + 5);Z(X + 2, Y + 6);End Else
        If Pismeno = 'p' Then Begin Z(X + 4, Y + 0);Z(X + 3, Y + 1);Z(X + 4, Y + 1);Z(X + 4, Y + 2);Z(X + 0, Y + 3);Z(X + 1, Y + 3);Z(X + 2, Y + 3);Z(X + 4, Y + 3);Z(X + 4, Y + 4);End Else
        If Pismeno = 't' Then Begin Z(X + 0, Y + 0);Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 3, Y + 1);Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 2, Y + 2);Z(X + 3, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 2, Y + 4);End Else
        If Pismeno = 'd' Then Begin Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 0, Y + 1);Z(X + 3, Y + 1);Z(X + 2, Y + 2);Z(X + 1, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 2, Y + 4);Z(X + 3, Y + 4);End Else
        If Pismeno = 'X' Then Begin Z(X + 0, Y + 0);Z(X + 4, Y + 0);Z(X + 1, Y + 1);Z(X + 3, Y + 1);Z(X + 2, Y + 2);Z(X + 1, Y + 3);Z(X + 3, Y + 3);Z(X + 0, Y + 4);Z(X + 4, Y + 4);End Else
        If Pismeno = 'x' Then Begin Z(X + 1, Y + 0);Z(X + 3, Y + 0);Z(X + 2, Y + 1);Z(X + 1, Y + 2);Z(X + 3, Y + 2);End Else
        If Pismeno = 'f' Then Begin Z(X + 3, Y + 0);Z(X + 2, Y + 1);Z(X + 4, Y + 1);Z(X + 2, Y + 2);Z(X + 2, Y + 3);Z(X + 2, Y + 4);Z(X + 0, Y + 5);Z(X + 2, Y + 5);Z(X + 1, Y + 6);End Else
        If Pismeno = 'r' Then Begin Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 4, Y + 2);Z(X + 2, Y + 3);Z(X + 3, Y + 3);Z(X + 2, Y + 4);Z(X + 1, Y + 5);Z(X + 2, Y + 5);Z(X + 0, Y + 6);Z(X + 3, Y + 6);Z(X + 4, Y + 6);End Else
        If Pismeno = 'c' Then Begin Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 3, Y + 0);Z(X + 0, Y + 1);Z(X + 1, Y + 1);Z(X + 4, Y + 1);Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 0, Y + 3);Z(X + 1, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 0, Y + 5);Z(X + 1, Y + 5);Z(X + 4, Y + 5);Z(X + 1, Y + 6);Z(X + 2, Y + 6);Z(X + 3, Y + 6);End Else
        If Pismeno = 'e' Then Begin Z(X + 0, Y + 0);Z(X + 1, Y + 0);Z(X + 2, Y + 0);Z(X + 3, Y + 0);Z(X + 0, Y + 1);Z(X + 1, Y + 1);Z(X + 4, Y + 1);Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 4, Y + 2);Z(X + 0, Y + 3);Z(X + 1, Y + 3);Z(X + 2, Y + 3);Z(X + 3, Y + 3);Z(X + 0, Y + 4);Z(X + 1, Y + 4);Z(X + 0, Y + 5);Z(X + 1, Y + 5);Z(X + 0, Y + 6);Z(X + 1, Y + 6);End Else
        If Pismeno = 'i' Then Begin Z(X + 0, Y + 2);Z(X + 1, Y + 2);Z(X + 2, Y + 2);Z(X + 3, Y + 2);Z(X + 4, Y + 2);Z(X + 1, Y + 3);Z(X + 3, Y + 3);Z(X + 1, Y + 4);Z(X + 3, Y + 4);Z(X + 1, Y + 5);Z(X + 3, Y + 5);Z(X + 0, Y + 6);Z(X + 3, Y + 6);Z(X + 4, Y + 6);End;
End;
Procedure Tform1.Zobraz;
Var s,d,f:string;
    i:integer;
Begin
  Vycisti;
  s:=tex.caption;f:='';
  for i:=1 to length(s) do begin
    d:=Copy(s,i,1);
    If d='s' then d:='sin ' else
    If d='k' then d:='cos ' else
    If d='t' then d:='tan ' else
    If d='g' then d:='log ' else
    If d='o' then d:='î' else
    If d='d' then d:='Ź' else
    If d='~' then d:='Ans' else
    If d='u' then d:='Ä' else
    If d='r' then d:='Ćî' else
    If d='q' then d:='Ć' else
    If d='w' then d:='Éî' else
    If d='P' then d:='Ĺ' else
    If d='C' then d:='ĺ' else
    If d='b' then d:='10^' else
    If d='a' then d:='e^' else
    If d='n' then d:='ln ';
    f:=f+d;
  End;
  prd.caption:=f;
  NapisText7x5(prd.caption,1,1);
End;
end.