unit Unit2;

interface
type
Tmy = Record
num:Integer;
data:array [1..30] of char;
V1,V2:^Tmy;
end;

implementation

function Input(Pdec:^Tmy);
var
i:Integer;
str:array [1..30] of char;
begin

end;

end.
