Задача дв.Массивы в Делфи!

[Марат05]

Условие: Двумерный динамический массив заполняется из текстового файла, 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'

[ArtGrek]

у тебя неправелно объявлена A[]

myarray=array of array of integer;
может так надо
myarray=array of integer;

и редактируи код как надо! ест кнопочка #, сплошнои техт читат не риално

[Марат05]

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,А: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(17): Illegal character in input file: 'А' ($C0)
[Error] Project1.dpr(22): Undeclared identifier: 'm'

[Марат05]

myarray=array of array of integer; тут ошибок нет, он на 'm' жалуется.

[Donatello]

на m жалуется т.к. она не объявлена никаким либо типом.
Объяви ее мб обе ошибки пропадут.
а на A может жаловаться из-за того что ты А делаешь массивом, а он у тебя уже объявлен. Хотя могу ошибаться, я с массивами пока что не очень дружен.

[Марат05]

m:=myarray; я ее описал, он на не соответствие типов жалуется!
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,А,:integer;
m:=myarray;
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.
Решите мне эту задачу!

[Марат05]

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:integer;
m:=myarray;
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
Решите мне задачу эту!

[Donatello]

напиши какие теперь ошибки пишет, просто у меня делфи сейчас не стоит, поэтому сам прогнать код не могу.

[ArtGrek]

m:=myarray;
в var так не пишут, ты сам бы был чут внимателнее
m: myarray;

[Марат05]

Спасибо за подсказку, у меня голова с утра не работает, а вот ошибки:
[Error] Project1.dpr(23): Operator not applicable to this operand type
[Error] Project1.dpr(26): Incompatible types
[Error] Project1.dpr(29): Incompatible types
Устраните вот эти ошибки.
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:integer;
m:myarray;
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