program JunkDemo;

uses
 Forms;

var
 UsersNumber: Integer;
 UsersString: String;

procedure Junk(Number: Integer; Stuff: String);
begin
 Writeln('Numer: ', Number);
 Writeln('acuch znakw: ', Stuff);
end;

begin
 Writeln('Wprowad acuch znakw: ');
 Readln(UsersString);
 Writeln('Wprowad liczb: ');
 Readln(UsersNumber);
 Junk(UsersNumber, UsersString);

 Readln;
end.