document.write('<link rel="stylesheet" type="text/css" href="http://www.naslu.com/css/SyntaxHighlighter.css" />');
document.write('<textarea name="code" id="code" class="delphi" rows="1" cols="1">');
document.write('FUNCTION ERROR_DE_FICHEROS(VAR fich1 : text):BOOLEAN;\n\nerror  : BOOLEAN;       \n\nBEGIN\n   error:=FALSE;\n   \n   WHILE error = FALSE DO\n	BEGIN\n		ASSIGN(fich1, \'fichero1.txt\');\n		{$I-}\n		RESET(fich1);\n		{$I+}\n		IF IORESULT <> 0 THEN \n			BEGIN \n				error:=TRUE;\n				BREAK; \n			END\n		ELSE\n			BEGIN\n				CLOSE(fich1);\n				BREAK;\n			END;\n	END;\n   \n	IF error = TRUE THEN\n		BEGIN\n			WRITELN(\'EL FICHERO NO EXISTE\');\n		END;\n   \n   ERROR_DE_FICHEROS:=error;\n\nEND; { FIN ERROR_DE_FICHEROS }');
document.write('</textarea>');
document.write('<script languaje="javascript" type="text/javascript">');
document.write('dp.SyntaxHighlighter.ClipboardSwf = \'http://www.naslu.com/flash/clipboard.swf\';dp.SyntaxHighlighter.HighlightAll("code");');
document.write('</script>');
document.write('<a href="http://www.naslu.com" style="font-family:Arial;font-size:9px;color:#444444;font-weight:bold;">Powered by naslu.com</a>');