Что не так в коде (pascal abc)
type
Human=class
public
name:string;
age:integer;
Height:integer;
end;
var
h:human;
begin
h:=new Human;
writeln('Привет! Я хочу немного узнать о тебе. ');
write('как тебя зовут: ');
readln(h.name);
write('прекрасно, ',h.name, ',а теперь скажи скоко тебе лет?: ');
readln(h.age);
if (h.age>17) then
writeln('Здорово ты уже совершенно летний! ');
else
writeln('О ты мальчик! ');
write('а скажи ка какой у тебя рост: ');
readln(h.Height);
writeln();
writeln('Ну вот и все. Мы собрали программму');
writeln('Тебя зову ','h.name);
writeln('Тебе ','age.);
writeln('Твой рост: ','h.height,'см');
writeln();
writeln('спасибо, 'h.name,'.До новых встреч! ');
end.