[denver]

у меня такое вот уже давно работает:

Procedure AudioCD2MP3;
var Books : array 0..15 of TBooks;
begin
goto library;
for i:=0 to 500 do Read(Books); //желательно
try
for i:=0 to 100 do Write(MoreSimpleCode); //без этого вообще работать не будет
finally
Skills:=Theory+Practise;
end;
end;

З.Ы. Вроде ошибок нет никаких :-/