free pascal else problem

ich fange gerade an free pascal zu lernen, bin aber noch nicht wirklich weit. jedenfalls habe ich hier ein problem. ich möchte ein ganz simples if-then-else programm schreiben:

program name;

uses Crt;

var
  Name : String;
 
begin
  ClrScr;
  Write('Bitte gib deinen Namen ein: ');
  ReadLn(Name);
  If Name = 'Hans Schmidt'
  then
    ClrScr;
    WriteLn;
    Write('Hallo Hans Schmidt.');
  else
    ClrScr;
    WriteLn;
    Write('Hallo, wer auch immer sie sind, sie sind nicht Hans Schmidt.');
end.

leicht unsinnig, braucht auch niemand aber zum üben für mich das richtige. allerdings mache ich einen fehler den ich nicht verstehe:

mir wird immer gesagt er habe bei else ein ; erwartet. Nun, ich habe davor ein ; gesetzt.

Was verstehe ich hier nicht?  ??? ??? ???
kann mir jemand helfen?

Danke im Voraus,

sutfn