unit Unit2;

interface
type
Tmy = Record;
var V1,V2:^Tmy;

function Input(i:Integer;str:array [1..30] of char);
implementation
type
Tmy = Record
num:Integer;
data:array [1..30] of char;
end;
function Input(i:Integer;str:array [1..30] of char);
begin

end;

end.
