Problem mit Pascal Programm

[The_Tremendous]

HI. Ich habe ein Hauptprogramm namens datum. In dieses Programm habe ich die Unit Eingabe eingebunden.

Hier die Unit Eingabe:

Delphi-Quellcode:

unit Eingabe;

interface
uses sysutils, crt;

procedure Schaltjahr;

implementation

begin

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;

end.

Ich arbeite mit dev-pascal, das wir dieses Programm verwenden müssen. Allerdings nimmt der Kompiler die Funktion nicht an. Kann mir da jemand helfen???

Wie kann ich die funktin dann im Programm Datum aufrufen??

[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]

[The_Tremendous]

Danke, hat geklappt