pre_alfa0_0

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
uses DOS;
var
S: SearchRec;
F: String;
begin
Writeln(''Введи расширение файла ');
Writeln('Например для текстового введи " txt "');
Readln(F);
F := '*.' + F;
FindFirst(F,AnyFile,S);
while DosError = 0 do
begin
with S do
Writeln(Name:12,Size:12,' байт');
FindNext(S);
end;
Readln;
end.