на ПАСКАЛЕ

[ddeman666]

Написать программу, которая выводит на экран имена, расширения и размеры всех файлов текущего каталога, расположив их в порядке убывания размера файлов.

[Chudo4258]

такую наверно за спасибо в паскале решать никто не будет.

[Serge_Bliznykov]

А чём там решать то?!

ну, на самом деле, проблема может быть только в одном - если выделить статический (постоянный массив), тогда будет ограничение на количество файлов,
а если использовать динамические структуры - то с ними чуть-чуть больше возни.
Но, вообще, ничего такого уж сложного не вижу.
вот, например.

uses Dos;
const MaxFiles = 1500;
var
  sr: SearchRec;
  ArrFiles : array[1..MaxFiles] of SearchRec;
  CountF, i, j, IndexMax : integer;
begin

  {читаем все файлы текущего каталога в массив}
  CountF := 0;
  FindFirst('*.*', AnyFile, sr);
  while DosError = 0 do
  begin
    if (sr.Attr and Directory) = 0 then
       if CountF = MaxFiles then begin
           writeln('Файлов слишком много...');
           Halt(100);
       end
       else begin
          inc(CountF);
          ArrFiles[CountF] := sr;
       end;
    FindNext(sr);
  end;

  {сортируем массив}

  {сортировка методом "пузырька" (методом простого выбора )

  Выбирается максимальный элемент массива
  и меняется местами с первым элементом массива.
  Затем процесс повторяется с оставшимися элементами и т. д. }

  for i:=1 to CountF-1 do begin
    IndexMax := i; {предварительно считаем, что первый элемент наибольший}
    {ищем индекс максимального элемента}
    for j:=i+1 to CountF do
      if ArrFiles[j].Size>ArrFiles[IndexMax].Size then IndexMax := j;

    {меняем местами элементы массива с индексами i и IndexMax
    (ну, если они не равны, конечно) }
    if i<>IndexMax then begin
      sr := ArrFiles[IndexMax];
      ArrFiles[IndexMax] := ArrFiles[i];
      ArrFiles[i] := sr;
    end;
  end;

  {а теперь выводим массив на экран}
  for i:=1 to CountF do
    WriteLn(ArrFiles[i].Size:12,' ',ArrFiles[i].Name);

  Readln;
end.