Pascal Datei auslesen

[dadie]

http://www.db.informatik.uni-kassel..../pas5open.html

*hust*Google, 'dateien pascal' Hit Nr. 10 *hust*

...

*hust*

46 / 9 dadiew~1.pas
Error: Incompatible type for arg no. 1: Got SHORTSTRING, expected FILE

64 dadiew~1.pas
Fatal: There were 1 errors compiling module, stopping


Das sagt mein Compiler dazu

vieleicht hilft ja der Quell code weiter (Bitte nett lachen ist mein Erstes Programm)

Code:

PROGRAM       Dadie_Word;
USES Crt;
VAR Datei, Datei2: Text; auswahl, text, pfad, Zeile: String;
BEGIN

ClrScr;

Writeln ('Dadie Word 0.0.1a Start');
Writeln ('Was wollen sie machen ? Neue Datei = new oder Datei lesen = read');
ReadLn (auswahl);
IF auswahl = 'new' THEN
BEGIN

Writeln ('Bitte Dateipfad eintragen (z.B. C:\testdatei.txt) ');

ReadLn (pfad);


Write ('Die Datei ');
Write (pfad);
WriteLn (' wurde Erstellt');
Writeln ('Bitte kill eingeben um das Programm zu beenden ');


Assign (Datei, pfad);
ReWrite (Datei);
WriteLn ('Geben Sie nun den Text ein, der in die Datei geschrieben werden soll ... ');

REPEAT
ReadLn (text);
IF text <> 'kill' THEN WriteLn (Datei, text);
UNTIL text = 'kill' ;
Close (Datei);
END
ELSE
BEGIN

IF auswahl = 'read' THEN
BEGIN
Writeln ('Datei angeben (z.B. C:\testdatei.txt) ');
ReadLn (pfad);
Writeln ('Datei wir gelesen bitte warten ....(bitte mit Enter bestätigen)');
ReadKey;



Assign( Datei2, 'pfad');
Reset( Datei2);
while not EoF( Datei2) do
begin
ReadLn( Datei2, Zeile);
Process( Zeile);
end;
Close( Datei2);



Writeln ('Programm beenden mit ENTER');
ReadKey;
END
ELSE
BEGIN
ClrScr;
Writeln ('Fehler 0001 Falsche eingabe.Das Programm wird beended');
Writeln ('Bestädigen sie den fehler mit ENTER');

ReadKey;
END;

END;



END.

EDIT:

Kommt schon hier gibt es soviele Programmierer im Forum wo ist der fehler ?