можно ли в паскале работать...
1. со строками более 255 символов
2. с именами файлов более 8 символов
uses WinDOS, lfn;
Const
ext='.pas';
var
k: integer;
SR: TLFNSearchRec;
begin
if not SupportsLFN then
begin
writeln ('Longnames not supported.');
halt;
end;
k:=LFindFirst(ext, faArchive, SR);
if k<>0 then
begin
writeln ('No such files in this path.');
halt;
end;
while k=0 do
begin
writeln (SR.Name);
k:=LFindNext(SR);
end;
end.