делфи текстфайлы и дв. масс.

[Марат05]

Условие: Двумерный динамический массив заполняется из текстового файла, 4 строки должны сортироваться по значению 1-го столбца и результат вывести в новом текстовом файле!
Мой код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type myarray=array of integer;
var f1,f2:textfile;
Procedure Init;
begin
assignfile(f1,'file1.txt');
assignfile(f2,'file2.txt');
 While not eof(f1)do
Reset (f1);
ReWrite (f2);
end;
Procedure Swap (Var x,y:integer);
Var w:integer;
Begin
w:=x; x:=y; y:=w
end;
Procedure Sort (N:integer; Var A:MyArray;B:MyArray);
Var i,j:integer;
Count:Myarray;
 Begin
 FillChar(Count,SizeOf (Count),0);
 For i:=N DownTo 2 do
 For j:=i-1 DownTo 1 do
 if A [i]<A[j] Then Inc (Count [j])
 Else Inc (Count [i]);
 For i:=1 To N Do B [Count[i]+1]:=A[i]; //стр.249
 End;
Procedure vivod;
begin
writeln (f2);
closefile(f1);
closefile(f2);
end;
end.

Не на что не жалуется и во второй файл отсартированный массив не выводит!


_______________________
столько постов на форуме написали, а правила прочитать не удосужились

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mMAg]

1. Компилятор не должен за вас думать, как решит вашу задачу. Я бы тоже не жаловался на его месте.
2. У вас странный компилятор. Я насчитал 4 begin и 5 end, а это значит, что компиляторчик то у вас кривой какой-то. Должен бы пожаловаться на кривой код.
3. Где основной код программы? Что толку с ваших функций...

[Serge_Bliznykov]

Сообщение от mMag

У вас странный компилятор.

Вы будете смеяться, коллега, но так поступает компилятор Delphi!
я сам в шоке:

program Project1;

{$APPTYPE CONSOLE}

end.

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

Сообщение от mMag

Где основной код программы? Что толку с ваших функций...

опять таки, Вы не поверите, но это ПОЛНЫЙ текст программы. Он комплируется и даже работает.

Другой вопрос - что он НИЧЕГО не делает. Ибо основого тела программы там просто НЕТ.
подразумевалось, что должно быть так:

....
procedure vivod;
begin
  writeln(f2);
  closefile(f1);
  closefile(f2);
end;

var N : integer;
   Mas1, Mas2 : MyArray;
begin
   Init; {<--- ВООБЩЕ НЕ ПОНЯТНО ЧТО ЭТО И ДЛЯ ЧЕГО!!!}

   {тут надо делать ввод N, заполнение массивов...}

   Sort(N, Mas1, Mas2);
   vivod;
end.

ну тут ещё надо код писать, писать, писать...