Hi Back again with printing problem in Free pascal for linux

Friends

Just poted a message regarding the printing

i got the code in freepascals units guide
---------------------------------------------
program t e s t p r n ;
uses p r i n t e r ;
var i : i n t e g e r ;
f : text ;
begin
writeln(Test of printerunit) ;
writeln(Writing to lst ... ) ;
for i : =1 to 80 do writeln(lst , This is line ,i ,
. #13) ;
close(lst) ;
writeln(Done .) ;
writeln(Writing to pipe ... ) ;
assignlst(f ,|/usr/bin/lpr -m');
rewrite( f ) ;
for i : =1 to 80 do writeln(f , This is line , i ,
. #13) ;
close(f) ;
writeln( Done . )
end .

---------------------------------------------
but even this code says the same thing runtime error 103
CAN SOME ONE PLESE HELP ME OUT
Srinivas