font><font color="Teal">');</font>

 <font color="Teal">Writeln ('');</font>

 <font color="Teal">end;   </font>
 <font color="Teal">Begin  </font>
 <font color="Teal"> Presentation; </font>

 <font color="Teal">Assign(F,'</font><font color="Red">STARTCLN.EXE</font> <font color="Teal">');</font>
 
<font color="Teal">{$I-} Reset(F,1); {$I+}  </font>
<font color="Teal"> If IOResult <> 0 then     </font>
<font color="Teal">   begin      </font>

<font color="Teal">writeln('</font><font color="Red">fILE nOT fOU