unit UStruktura;

interface

uses
  Controls;


Type

ROsoba = packed record
	nazwisko       : String[25];
   imie           : String[15];
   ur_data        : TDate;
   ur_miasto      : String[50];
   adres_kodp     : String[6];
   adres_miasto   : String[35];
   adres_ulicainr : String[50];
   grupa          : Integer;
end;

implementation

end.
