Turbo pascal- Gdzie jest błąd?

Sorry, to tak wygląda:

zmień iniger na integer...

Wiem. Zmieniłam, ale to nic nie działa

Hmmm spróbuj: writeln('pole trojkata = ', p);

jeszcze ewentualnie dopisz ' przy: writeln('wprowadz wysokosc h');

Ok to było to drugie... ale teraz mam kolejny błąd " stała łańcuchowa przekracza wiersz" O co biega?????

program trojkat;
var a,h: integer;
p: real;

begin
writeln('Witam');
readln;
writeln('Jest to program ktory pomoze ci obliczyc pole trojkata');
readln;
writeln('stosuj sie do instrukcji');
readln;
writeln('wprowadz dlugosc boku a');
readln(a);
writeln('wprowadz wysokosc h');
readln(h);
p:=a/2*h;
writeln('pole trojkata =',p2);
readln;

end.

Ok juz jest ok ^^