[Марат]

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

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type myarray=array of array of integer;
var f1,f2:textfile;
B:set of 0..255;
Procedure Init;
begin
assignfile(f1,'file1.txt');Reset (f1);
assignfile(f2,'file2.txt'); ReWrite (f2);
 While not eof(f1)do
end;
Procedure Sort(N:integer; Var A:myarray);
var i,j,k,m:integer;
begin
For i:=N DownTo 2 do
begin
for j:=1 to i-1 do
if A[j]>m Then
begin
 k:=j; m:=A[j]
  End;
  if k<>i Then
  begin
A[k]:=A[i]; A[i]:=m;
end;
end;
end;
Procedure done;
begin
closefile(f1);
closefile(f2);
end;
end.

Помогите устранить ошибки:

[Error] Project1.dpr(22): Operator not applicable to this operand type
[Error] Project1.dpr(25): Incompatible types: 'Integer' and 'dynamic array'
[Error] Project1.dpr(28): Incompatible types: 'Integer' and 'dynamic array'

Aristarh Dark: РАЗ: Пользуемся тэгами ДВА: Не создаем дублей тем. ВЫВОД: Читаем правила!!!!