[Pascal] Problema con if...then...else

[Il Razziatore]

Salve a tutti,
da poco ho iniziato a studiare il Pascal.
Stavo facendo un prova usando if...then...else, ma mi dà questo problema:

http://img146.imageshack.us/img146/9461/112121dv4.jpg

sapete aiutarmi? Non capisco che vuol dire "expected but ELSE found
"

Grazie ciao

PS:
Non so se i writeln ('n1,' testo',n2) sono giusti, era una prova, asd.

[ilsensine]

Non ci va il ";" prima di else.

[Il Razziatore]

Argh, è vero :muro:
Che poi ho dimenticato pure il readln finale.

Vabbè, grazie mille :)

EDIT: già che ci sono: se io volessi fa ricominciare dall'inizio il programma senza doverlo riaprire come faccio?

[variabilepippo]

se io volessi fa ricominciare dall'inizio il programma senza doverlo riaprire come faccio?

Cosa significa?

[Il Razziatore]

Cosa significa?Cioè una volta che viene stampato a video quello che deve essere stampato, chiedere (tramite un if) se voler rifare da capo con altri numeri o se chiudere.

[variabilepippo]

Program Ciclo1;

uses CRT;

const tastoESC = #27;

begin
repeat
// QUI METTI IL TUO CODICE
until ReadKey = tastoESC; // Premi ESC per uscire al termine dell'esecuzione
end.

oppure


Program Ciclo2;

uses CRT;

var risposta : char;

{$APPTYPE CONSOLE}

begin
repeat
// QUI METTI IL TUO CODICE
writeln('Vuoi uscire dal programma (S/N)?');
risposta := ReadKey;
until (risposta = 's') or (risposta = 'S');
end.