zadanie problem

slepak1993

witam mam zadanie a wraz zadaniem problem . compilator ukazyje mi 5 błedów nie wiem o co chodzi . Już sie trohce mecze z tym zadaniem i dalej nie wiem o co chodzi .

program zmienne_dynamiczne;
{deklaracja wska«nik˘w - zmienne statyczne, w pami©ci konwencjonalnej}
var p, q, z, x, obwod: ^real;

begin
writeln('Obliczanie obwodu trapezu');

{utworzenie zmiennej dynamicznej typu real, wskazywanej pezez wska«nik p,
w pami©ci rozszerzonej (na tzw. stercie)}
new(p);
{utworzenie zmiennej dynamicznej typu real, wskazywanej pezez wska«nik q
w pami©ci rozszerzonej (na tzw. stercie)}
new(q);
{utworzenie zmiennej dynamicznej typu real, wskazywanej pezez wska«nik p,
w pami©ci rozszerzonej (na tzw. stercie)}
new(z);
{utworzenie zmiennej dynamicznej typu real, wskazywanej pezez wska«nik p,
w pami©ci rozszerzonej (na tzw. stercie)}
new(x);

writeln('Podaj dˆugo˜ci bok˘w trapezu');

write('a = ');
{wczytanie z konsoli (klawiatury) warto˜ci zmiennej wskazywanej przez p}
readln(p^);

write('b = ');
{wczytanie z konsoli (klawiatury) warto˜ci zmiennej wskazywanej przez q}
readln(q^);

write('c = ');
{wczytywanie z konsoli (klawiatury) warto˜ci zmiennej wskazywanej przez z}
readln(z^);

write('d = ');
{wczytywanie z konsoli (klawiatury) warto˜ci zmiennej wskazywanej przez z}
readln(x^);

{utworzenie zmiennej...}
new(obwod);

{instrukcja podstawiania - obliczenie...}
obwod^ := a^+b^+c^+d^;

{wypisanie wyniku na konsoli (ekranie), warto˜† zmiennej wskazywanej
przez wska«nik obwod (obwod^) w obwodize o szeroko˜ci 10 znak˘w, z dokˆadno˜ciĄ
4 cyfr po przecinku}
writeln('Obwod trapezu = ', obwod^:10:4);

{usuni©cie z pami©ci wcze˜niej utworzonych zmiennych dynamicznych}
dispose(p);
dispose(q);
dispose(z);
dispose(x);
dispose(obwod);

yuurei

Powinno być tak: