uses dos;

{ Процедура показывает содержимое диска по шаблону Where }
Procedure ShowDisk(Where: string);
 Type
   attrType = (RO, Hid, Sys, Vol, Dir, Arc);
 Const
   attrText: Array[attrType] Of Char =
     ('R', 'H', 'S', 'V', 'D', 'A');
   attrVal: Array[attrType] Of Byte =
     (1, 2, 4, 8, 16, 32);
 Var
   sRec: SearchRec;
   i: attrType;

 Begin
   If Where = '' Then
     Where := '*.*';

   { Найти первый подходящий файл среди файлов заданного типа (AnyFile)
      Результаты сохраняются в записи sRec }
   FindFirst(Where, AnyFile, sRec);

   { Пока файлы находятся (если больше подходящих файлов не найдено,
      DosError примет ненулевое значение) }
   While DosError = 0 Do
     Begin
       Write(sRec.name:15, sRec.size:10);

       { Распечатывается атрибут файла... }
       For i := RO To Arc Do
         If (sRec.Attr and attrVal[i]) = attrVal[i]
           Then Write(attrText[i]) Else Write('.');
       WriteLn;

       { Ищется следующий файл по тому же шаблону, который задан в FindFirst }
       FindNext(sRec);
     End;

 End;

Begin
 ShowDisk('F:\*.*');
End.

uses crt;

var i:integer;

procedure polosa(x1,x2:integer);
var c:integer;
begin
for c:=x1+1 to x2-1 do
   write('═')
end;

procedure Ramka1(x1,x2,y1,y2:integer);
var z:integer;
begin
GotoXY(x1,y1);
write('╔');
polosa(x1,x2);
write('╗');
GotoXY(x1,y1+1);
for z:=y1+1 to y2-2 do
   begin
   gotoxy(x1,z);
   write('║');
   write('║':x2-x1);
   end;
gotoxy(x1,z+1);
write('╚');
polosa(x1,x2);
write('╝');
end;

begin
textbackground(blue);
clrscr;
ramka1(1,40,1,24);
ramka1(41,80,1,24);

gotoxy(20,1);
write('╤');
for i:=2 to 22 do begin gotoxy(20,i); write('│') end;
gotoxy(20,23); write('╧');

gotoxy(1,25);
textbackground(11);
clreol;
write('1 HELP  2 MENU  3 VIEW  4 EDIT  5 COPY  6 RENMOV 7 MKDIR 8 DELET 9 CONF 10 EXIT');

gotoxy(1,24);
textbackground(0);
clreol;
write('C:\>');
readln;
end.