-




- 2


writeln('<TD><A HREF="',root32,Book32[i].HREF,'">',Book32[i].Title,'</A></TD>');

writeln('<TD>',Book32[i].Author,'</TD>');

writeln('<TD>',Book32[i].Publisher,'</TD>');

writeln('<TD>',Book32[i].ISBN,'</TD>');

writeln('<TD>',Level[Book32[i].Level],'</TD>');

writeln('<TD>',Book32[i].TechnicalContentsQuality,'</TD>');

writeln('<TD>',Book32[i].QualityOfWriting,'</TD>');

writeln('<TD>',Book32[i].ValueForMoney,'</TD>');

writeln('<TD><B>',Book32[i].OverallAssessment,'</B></TD>');

writeln('</TR>')

end

end;

if DataRec.Delphi1 then writeln('<TR></TR>')

end;

if DataRec.Delphi1 then

begin

for Hits := 5 downto 1 do

begin

for i:=1 to Books16 do if Result16[i] = Hits then

begin

writeln('<TR>');

writeln('<TD>',Roman[Hits],'</TD>');

writeln('<TD><A HREF="',root16,Book16[i].HREF,'">',Book16[i].Title,'</A></TD>');

writeln('<TD>',Book16[i].Author,'</TD>');

writeln('<TD>',Book16[i].Publisher,'</TD>');

writeln('<TD>',Book16[i].ISBN,'</TD>');

writeln('<TD>',Level[Book16[i].Level],'</TD>');

writeln('<TD>',Book16[i].TechnicalContentsQuality,'</TD>');

writeln('<TD>',Book16[i].QualityOfWriting,'</TD>');

writeln('<TD>',Book16[i].ValueForMoney,'</TD>');

writeln('<TD><B>',Book16[i].OverallAssessment,'</B></TD>');

writeln('</TR>')

end

end

end;

writeln('</TABLE>');

writeln('<HR>');

writeln('<A HREF="http://www.drbob42.com">Dr.Bob''s Delphi Clinic</A>');

writeln('</BODY>');

writeln('</HTML>');

writeln;

Free

end