Program FindPas;
Uses Dos,crt;
Type
   List = record
           fName: string[20];
           Date: string[10];
           Hour: string;
           Size: Byte;
           Attr: boolean;
           Sc: integer;
        end;

Var
Date:DateTime;   {}
Fil:SearchRec;   {}
Imya,StrI,c,im,pas,TextF,nameFolder: string;
I,j,m,l,s,p: integer;
F: file;
x,y: byte;
dir:dirstr;
nam: namestr;
ext: extstr;
FText: text;
SimvViv:char;
ParamStr: pathstr;

Procedure enterFolder(nameFolder:string);
  Begin
   {Vivod elementov dannoy directorii}
   FindFirst (nameFolder+'*.*',Directory,Fil);
   While DosError=0 do
     Begin
       I:=i+1;
       FSplit(ParamStr, dir,nam,ext);
       UnpackTime (Fil.Time,Date);
       List.fName[i]:=nam+ext;
       List.Date[i]:=Date.Day+'.'+Date.month+'.'+Date.Year;
       List.Hour[i]:=Date.Hour+':'+Date.Min+':'+Date.Sec;
       List.Size[i]:=Fil.Size;
       Sc:=Sc+1;
       FindNext(Fil);
     End;
     For i:=1 to List.Sc do
       Begin
       WriteLn(List.Name:20, List.Date:15, List.Hour:10,List.Size:10,' byte.');
     End;
  End;

Procedure sozdTextFile ();
  Begin
    Writeln('Im sozd');
    Readln(Im);
    Assign(FText,Im);
    Rewrite(FText);
    Writeln('Vv text');
    Readln(TextF);
    Writeln(FText,TextF);
    Close(FText);
  End;

Procedure enterTextF();
  Begin
    Writeln('viv');
    readln(im);
    assign (FText,im);
    reset(FText);
    While not eof(FText) do
      begin
        read(FText,SimvViv);
        write(SimvViv);
      end;
    close(FText);
    readln;
  End;

BEGIN
TextBackGround (3);
Textcolor(5);

ClrScr;
Writeln;
 nameFolder:='C:\;
 enterFolder(nameFolder);
                 i:=0;

 Write('1-prevkat  2-sl kat');
 Repeat
 Case ReadKey of
    #49:
        Begin {Prev katalog}
            {nameFolder[0]:=chr(ord(nameFolder[0])-1);}
            ClrScr;
            I:=length(nameFolder);
            Writeln('..');
            m:=i-1;
            while nameFolder[m]<>'\' do
                begin
                    If nameFolder='C:\' then break
                        Else
                            Begin
                                m:=m-1;
                                Delete(nameFolder,m+1,1);
                            End;
                end;
            Delete(nameFolder,m,2);
            nameFolder:=nameFolder+'\';
            Writeln(nameFolder);
            enterFolder(nameFolder);
        End;

    #50:
        Begin
              {Perehod po papkam vniz}
            Delete(StrI,1,80);
            Writeln('Vv imya papki');
            Readln(StrI);
            nameFolder:= nameFolder+strI+'\';
            Writeln(nameFolder);
            ClrScr;
            enterFolder(nameFolder);
            I:=length(nameFolder);
        End;
 End;

 Until(ReadKey=chr(27));
 {Poluchit put v tekusch katalog}
 Imya:= FExpand(Fil.name);
 I:= length(Imya);
 StrI:= Imya;
 For j:=1 to i do
   Begin
     If StrI[j]='.' then
       If (StrI[j+1]='p') or
          (StrI[j+1]='e') or
          (StrI[j+1]='b') or
          (StrI[j+1]='d') or
          (StrI[j+1]='s') or
          (StrI[j+1]='*') then
       Begin
         Delete(StrI,j,5);
         m:=j;
         while StrI[m]<>'\' do
         begin
         m:=m-1;
         Delete(StrI,m,1);
         end;
         Break;
       End;
   End;

I:=length(StrI);

 {Udaleniye f}
 {Writeln('Imya ud');
 Readln(Im);
 Assign(f,im);
 Erase(f);}

 {Poisk konkretnogo f v kataloge}
 Writeln('Imya s rashireniem');
 Readln(Imya);
 nameFolder:=nameFolder+'\'+Imya;
 enterFolder (nameFolder);

 Readln;
End.