problemi pascal

[seby]

scusate anche io sto provando a fare delle piccole cosette con pascal, però arrivati a questo punto mi sono bloccato.
Chiedo se qualcuno potrebbe aiutarmi
il programma è questo:

program equazion2grado;
uses crt;
var a,b,c,delta,x1,x2:real;
begin
clrscr;
writeln('Inserisci il coefficente della x al quadrato');
readln(a);
writeln('Inserisci il coefficente della x');
readln(b);
writeln('Inserisci il termine noto');
readln(c);

delta:=sqrt(b*b-4*a*c);

case delta of

>0: begin
x1:=(-b-delta)/(2*a);
x2:=(-b+delta)/(2*a);
writeln('Il risultato dell'equazione è x1=',x1:2:2,'e x2=',x2:2:2);
end;
=0: begin
x1:=(-b)/(2*a);
x2:=(-b)/(2*a);
writeln('Il risultato delle due x sarà lo stesso e quindi x1=x2=',x1:2:2);
end;
<0: writeln('Nessuna soluzione reale');
end.

Il problema sta nell'"of" di case mi dice errore 39 se qualcuno lo potrebbe gentilmente controllare, mi affido nelle vostre mani.
Grazie in anticipo.
Seby