[DiGer911]

люди,переделал прогу!теперь проблема в том что неоткрывает файл!никаких ошибок невыдает!а содержимое непоказывает!
текстовый файл создал но хз в чем проблема!помогите блин завтра надо сдать

Код:

Uses CRT;
Const MaxMenuItem = 4;
Var Ret : Byte;
  f: text;
  s: string;

Function MainMenu(R_Select:Byte):Byte;
Type TMenu = record
         X,Y : Byte;
           S : String[20];
     End;
Var
    Menu : Array [0..MaxMenuItem] Of TMenu;
    Run : Boolean; {ўлЎа** Їг*Єв ¬Ґ*о}
    Sel : Byte;
    TC, TB : Byte; {color}
    Procedure DrawMenu;
    Var I : Byte;
    Begin
         For I := 0 To MaxMenuItem Do
         Begin
              GotoXY(Menu[i].X, Menu[i].Y);
              Write(Menu[i].S);
         End;
    End;
Procedure Select (I:Byte);
    Begin
         TextBackground(TC); TextColor(TB);
         GotoXY(Menu[i].X, Menu[i].Y);
         Write(Menu[i].S);
         TextBackground(TB); TextColor(TC);
    End;
    Procedure DeSelect (I:Byte);
    Begin
    GotoXY(Menu[i].X, Menu[i].Y);
         Write(Menu[i].S);
            End;
Begin
     Menu[0].S := 'item 0'; Menu[0].X := 5; Menu[0].Y :=  4;
     Menu[1].S := 'item 1'; Menu[1].X := 5; Menu[1].Y :=  5;
     Menu[2].S := 'item 2'; Menu[2].X := 5; Menu[2].Y :=  6;
     Menu[3].S := 'item 3'; Menu[3].X := 5; Menu[3].Y :=  7;
     Menu[4].S := ' exit '; Menu[4].X := 5; Menu[4].Y :=  8;
     ClrScr;
     TC := TextAttr mod 16;
     TB := TextAttr div 16;
     DrawMenu;
     Sel := R_Select;
     Select(Sel);
     Run := False;
     While Not Run Do Begin
           Case ReadKey Of
                #13 : Run := True;
                #27 : Begin
                           Run := True;
                           Sel := MaxMenuItem;
                      End;
                #0 : Case ReadKey Of
                           #72 : Begin
                                      DeSelect(Sel);
                                      If Sel = 0
                                      Then Sel := MaxMenuItem
                                      Else Sel := Sel - 1;
                                      Select(Sel);
                                 End;
                           #80 : Begin
                                      DeSelect(Sel);
                                      If Sel = MaxMenuItem
                                      Then Sel := 0
                                      Else Sel := Sel + 1;
                                      Select(Sel);
                                 End;
                      End;
           End;
     End;
     MainMenu := Sel;
     ClrScr;
End;
Begin
     ClrScr;
     Ret := 0;
     Repeat
          Ret := MainMenu(Ret);
          Case Ret Of
              0: Begin
               WriteLn('‚лЎа** Їг*Єв: ', Ret);
                  assign(f,'c:\A.txt');
                  reset(f);
                  close(f);
                  ReadLn;
                  End;
               1: Begin
                       WriteLn('‚лЎа** Їг*Єв: ', Ret);
                       ReadLn;
                  End;
               2: Begin
                       WriteLn('‚лЎа** Їг*Єв: ', Ret);
                       ReadLn;
                  End;
               3: Begin
                       WriteLn('‚лЎа** Їг*Єв: ', Ret);
                       ReadLn;
                  End;
               Else Begin
                       WriteLn('‚л室 Ё§ Їа®Ја*¬¬л');
                       ReadLn;
                    End;
          End; {case Ret}
     Until Ret = MaxMenuItem;
End.
var
  f: text;
  s: string;
begin
  assign(f,'filename');
  reset(f);
  readln(f,s);
  close(f);
end;