Procedure Zisky(X,Y,I: Word); Var A,B,C: LongInt; Begin Case I of 255: Begin A:=DatRec.Pub.Vklady; B:=DatRec.Pub.Vyplaceno; If DatRec.Pub.Vklady>DatRec.Pub.Vyplaceno then Begin C:=A-B; WriteText(Buffer[1],160,0,5,5,1,X,Y,'-',Buffer[3]); WriteNumber(Buffer[1],160,15,5,5,1,X+6,Y,C,Buffer[3]); End; If DatRec.Pub.VkladyDatRec2.Vyplaceno[I] then Begin C:=A-B; WriteText(Buffer[1],160,0,5,5,1,X,Y,'-',Buffer[3]); WriteNumber(Buffer[1],160,15,5,5,1,X+6,Y,C,Buffer[3]); End; If DatRec2.Vklad[I]