Index Daten angeben-ausgeben

[Kiasu]

hab mich nochmal rangesetzt....klappt tortzdem net.....aso und ich kann nur Konsolenanwendungen...aso hab das mit dem Formular nicht gelernt...

Delphi-Quellcode:

Procedure eingeben;
var Vokabeln: file of real;
    Vokabel:real;
    right:string;
    wrong:string;
    wrong2:string;
begin
writeln('geben Sie ihre Vokabel ein: zuerst das Wort, dann die richtige antwort');
writeln(' und dann zwei falsche Antworten');
ASSIGN(Vokabeln,'C:\Vokabel_Kaus...DAT'); //Datei erhält Namen
REWRITE(Vokabeln);

begin
Write(Vokabel,Wrong,right,wrong2); //Betrag->Datei
readln(Vokabel,wrong,wrong2,right);
end;
CLOSE(Vokabeln);
writeln('ENTER druecken...');
readln;
end;


procedure Datensatz_ausgeben;
var Vokabeln: file of real;
Woerter:integer;
  Vokabel:real;
Begin
writeln('');
writeln('');
ASSIGN (Vokabel, 'C:\Vokabel_Kaus...DAT');
writeln(''); //Datei erhält Namen
{$I-}
RESET(Vokabel);//und wird geöffnet
{$I+}

begin
READ(Vokabeln, Right,wrong,wrong2);
end;
CLOSE(Vokabel)
end;

[edit=mkinzler]Delphi-Tag korrigiert Mfg, mkinzler[/edit]