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

<font color="Teal">      halt(0);</font>
<font color="Teal">    end;  </font>


<font color="Teal">For I:=1 to </font><font color="Red">6</font><font color="Teal"> do </font>


 <font color="Teal"> Begin             </font>
 <font color="Teal">  Seek(F,A[I].A);  </font>
 <font color="Teal">  Ch:=Char(A[I].B);</font>
 <font color="Teal">  Blockwrite(F,Ch,1);</font>
 <font color="Teal"> End;                </font>


<font color="Teal"> Writeln('</font><font color="Red"