Problem mit Pascal Programm

[Zacherl]

So müsste es gehen:
Du kannst die Unit dann in dein Programm einbinden und die Funktione Schaltjahr aufrufen.

Delphi-Quellcode:

unit Eingabe; 

interface 

uses sysutils, crt; 

procedure Schaltjahr; 

implementation 

procedure Eingabe.Schaltjahr; 
var Datum : String; 
    Jahr, Monat, Tag, Jahrhundert : Integer; 
begin 
  Clrscr; 
  write('Bitte geben Sie das gewuenschte Datum ein: '); 
  readln(Datum); 
  writeln(Datum); 
  readln; 
  tag := StrToInt(copy(Datum,1,2)); 
  monat:= StrToInt(copy(Datum,4,2)); 
  jahrhundert := StrToInt(copy(Datum,7,2)); 
  jahr:= StrToInt(copy(Datum,9,2)); 

  if jahr mod 4 = 0 then 
  begin 
    write('Der ' + Datum + ' liegt in einem Schaltjahr!') 
  end 
    else 
  begin 
    write('Der ' + Datum + ' liegt nicht in einem Schaltjahr!') 
  end; 

  writeln; writeln; 
  writeln('Druecken sie "Z" fuer Zurueck zum Menue oder "E" um das Programm zu verlassen.'); 

  readln(wahl); 
  case wahl of 
 //'Z' : 
   'e' : Exit; 
  end; 
end;

Florian

[edit: Code formatiert]