конструктор! почему не работает? Опции

[-Екатерина-]

написала конструктор для создания списка!

constructor TList.create;
begin
    first:=nil;

    writeln('PYSTOI SPISOK SOZDAN!!!');
    readln;
end;

выдает ошибку. с чем связано???
помогите пожалуйста