В чём проблема?

[Kokosaki]

Кто может пожалуйста скажите где тут ошибка?

program ProjectTest;
type
Human = class
public
Name:string;
Old:integer;
Height:integer;
Lovesport:string;
Lovemusik:string;
end;
var
h: Human;
begin
writeln('Привет, как тебя зовут');
readln(h.Name);
writeln('Отлично ',h.Name,' , а сколько тебе лет? ');
readln(h.Old);
if(15<h.Old) then
writeln('Круто, да ты уже взрослый')
else
writeln('Мелковат');
if(h.Old>50) then
writeln('ну ты и старик');
writeln('Отлично, а какой у тебя рост ',h.Name,'?');
readln(h.Height);
if(h.Height>185) then
writeln('Ну ты и великан! ');
if((160<h.Height) and (h.Height<185)) then
writeln('Знал я людей и по выше, середнячок ты, ',h.Name,'.');
if(h.Height<160)then
writeln('Ни чего, и с таким ростом люди живут, ведь наверняка есть преимущества? ');
writeln('Интересно, а какой твой любимый вид спорта ',h.Name,' ?');
readln(h.Lovesport);
writeln('Понятно, а любимый исполнитель? ');
readln(h.Lovemusik);
writeln('Отлично, я узнал всё что хотел');
writeln('Тебя зовут- ',h.Name,'.');
writeln('Твой возраст- ',h.Old,'.');
writeln ('Твой рост- ',h.Height,'.');
writeln('Твой любимый вид спорта- ',h.Lovesport,'.');
writeln ('Твой любимый исполнитель- ',h.Lovemusik,'.');
writeln ('Спасибо что уделил мне внимание и прошёл мой опрос ',h.Name,'.');
end.

[type_Oleg]

Это смотря какой компилятор.
Замени слово class на record, а public убери.
Или надо непременно с классами ?

[Kokosaki]

Нет нету ограничений спасибо я справился.