Текс Файлы

[Марат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'
Помогите пожалуйста, я на нее убил целый час!

[Прик]

Ошибки из-за двухмерного массива. Элементы двухмерного массива - это тоже массивы и их нельзя сравнивать с одиночной переменной

if A[j]>m Then // выражение сравения не корректно

. Так же нельзя присваивать массиву значение переменной и наоборот, переменной нельзя присваивать значение массива:

A[i]:=m;
m:=A[j]

[Марат05]

А как их исправить, напишите пожалуйста другой код, я незнаю какой код нужен