[NekitoSSSS]

помнится, читал гдe-то статейку, в ней делали нечто этакое

Код:

  PDSData = ^TDSData;
  TDSData= record
   param1:string;
   param2:integer;
  end;

...
var a:TDsData;
begin
 a.param1:='z';
 a.param2:=24;
 ...
 writeln(a);

end;

кто знает как реализовывать подобное, подскажите пожалуйста))