Potenzieren in Pascal

Hallo Leute,
ich habe folgendes Problem bei Turbo Pascal.
Und zwar muss ich folgendes Proggi schreiben:
Berechne 1³+2³+3³...und dann soll das Proggi am schluss alles zusammenzählen.
Ich habe schon ein wenig Probiert, aber in der while...do Schleife (die müssen wir nehmen) kommt beim compilieren immer ein Fehler

program zahlen;
uses wincrt;
var x, y, c : real;
begin
writeln (`Von wo an soll eine Zahl mit seinem Nachfolger und seinem Wert potenziert werden?`);
writeln (`Es geht automatisch bis 10`);
writeln (`Nu gib die Zahl bitte ein: `); readln(x);
begin
while x <= 10 do exp(x);
y:= x*exp(x)
write (`Daraus kommt: ,y,`);
end;
end.

Vielen Dank für Eure Hilfe,
mfg SirLink