<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><FONT face="Times New Roman" size=3>Hello</FONT></DIV>
<P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><FONT size=3><FONT face="Times New Roman">I use turbo_pascal<SPAN style="mso-spacerun: yes">  </SPAN>language for learning. I write<SPAN style="mso-bidi-language: FA"> a program<SPAN style="mso-spacerun: yes">  </SPAN>(T3ch18.pas) which use two units – (Uadd_pro.pas) and<SPAN style="mso-spacerun: yes">  </SPAN>(Un3ch 18.pas).<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></FONT></FONT></DIV>
<P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><SPAN style="mso-bidi-language: FA"><FONT size=3><FONT face="Times New Roman">In unit<SPAN style="mso-spacerun: yes">  </SPAN>Uadd_pro.pas , I used procedure ask. It works true when I test it only, but when I use them together,<SPAN style="mso-spacerun: yes">  </SPAN>above mentioned procedure in line – readLn- causes error and cpu abrupts running and finished running it.<o:p></o:p></FONT></FONT></SPAN></DIV>
<P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><SPAN style="mso-bidi-language: FA"><FONT size=3><FONT face="Times New Roman">If it is possible for you, please help me to solve this problem.<o:p></o:p></FONT></FONT></SPAN></DIV>
<P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><SPAN style="mso-bidi-language: FA"><FONT size=3><FONT face="Times New Roman">For run (T3ch18.pas) after running and choosing 1 for your choice in menu choice, it wants from you a positive- integer number as number of stuff and a real value as price of stuff and a name as vender, after then it ask you that if you<SPAN style="mso-spacerun: yes">  </SPAN>want to continue or not and in this stage error will occur.<o:p></o:p></FONT></FONT></SPAN></DIV>
<P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><SPAN style="mso-bidi-language: FA"><FONT size=3><FONT face="Times New Roman">Thanks for your attention..<o:p></o:p></FONT></FONT></SPAN></DIV>
<P class=MsoNormal dir=ltr style="MARGIN: 0cm 0cm 0pt; DIRECTION: ltr; unicode-bidi: embed; TEXT-ALIGN: left"><SPAN style="mso-bidi-language: FA"><o:p><FONT face="Times New Roman" size=3> </FONT></o:p></SPAN></DIV></td></tr></table><br>