[marek@nos proc]$ fpc proc09
Free Pascal Compiler version 1.9.4 [2004/05/30] for i386
Copyright (c) 1993-2004 by Florian Klaempfl
Target OS: Linux for i386
Compiling proc09.pas
proc09.pas(10,8) Note: Local variable "s" not used
Linking proc09
27 Lines compiled, 0.0 sec

[marek@nos proc]$ ./proc09
i=  1, j=  4, x= 3.00, y= 5.00 r.pole1=   4, r.pole2= 3.00, r.pole3[1]=TRUE