помогите найти ошибку в коде

[Saka]

Условие задачи: Дана целочисленная матрица A (n,m). Упорядочить по возрастанию элементы каждого столбца матрицы

сам код:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
Type
Tdar=array of integer;
var
x:TDar;
i,j,n,m,d,max,imax,c,z:integer;


begin
{ TODO -oUser -cConsole Main : Insert code here }
write('kol-vo ctroc=');
readln(n);
write('kol-vo ctolbcov=');
readln(m);
setlength(x,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read(x[i][j]);
for j:=0 to m-1 do
for i:=0 to n-1 do
for d:=1 to n-1 do
begin
max:=x[0][0];
imax:=0;
for c:=0 to n-d do
if(x[c][j]>max)then
begin
max:=x[c][j];
imax:=c;
end;
x[imax][j]:=x[n-d][j];
x[n-d][j]:=max;
end;
//вывод построчно
for i:=0 to n-1 do
begin
writeln;
for j:=0 to m-1 do
write(x[i][j],' ');
end;
readln;
readln;
end.

[Базиля]

Задачу вообще пробовал отлаживать?
И вообще что за язык программирования? Паскаль? Если да, то ошибок много

[Lemo]

Это делфи!

[Базиля]

А тогда извини, а то я и смотрю что на паскаль не похоже...но все-таки для достоверности спросил=)
P.S. Делфи я не знаю=( Могу единственно чем помочь, что написать на паскале, а ты уже сравнишь со своим кодом делфи и исправишь что нужно

[Saka]

Сообщение от Базиля

А тогда извини, а то я и смотрю что на паскаль не похоже...но все-таки для достоверности спросил=)
P.S. Делфи я не знаю=( Могу единственно чем помочь, что написать на паскале, а ты уже сравнишь со своим кодом делфи и исправишь что нужно

Напиши плз, если не трудно

[Базиля]

Saka
да конечно, держи

program zad1;
type mas=array[1..10,1..10] of integer;
var a:mas;
p,i,y,j,k,n,min:integer;
begin
writeln('введите кол-во строк и столбцов');
readln(n,k);
for i:=1 to n do
for j:=1 to k do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for j:=1 to k do
for i:=1 to n-1 do
begin
min:=a[1,j];
if min>a[i+1,j] then
begin
for y:=1 to n do
for i:=1 to n-1 do
begin
p:=min;
min:=a[i+1,j];
a[i+1,j]:=p;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to k do
begin
write(a[i,j],'  ');
end;
writeln;
end;
end.

P.S. извини что так припозднился с ответом, просто отходил

[Saka]

Пасиба большое)))