пожалуйста проверьте правильность проги на языке паскаль!

[владимир/к.]

задача:
Дан массив из 4 строк и 4 столбцов.Упорядочить массив по возрастанию произведения элементов столбцов.

вот что я написал:

program we;
uses crt;
var x:array[1..5,1..4] of real;
j,i,k:integer;
r:real;
begin
writeln('vvedite matrix x');
for I:=1 to 4 do for J:=1 to 4 do read(x[i,j]);
for J:=1 to 4 do begin
x[5,J]:=1;
for i:=1 to 4 do x[5,j]:=x[5,j]*x[i,j];
end;
for i:=1 to 4 do for J:=1 to 4 do
if x[5,j-1]>x[5,j] then for k:=1 to 5 do begin
r:=x[k,j-1];x[k,j-1]:=x[k,j];r:=x[k,j];
end;
for i:=1 to 4 do begin
for J:=1 to 4 do write(x[i,j]:6:3,'');writeln;
readln;
end;
end.

подскажите все ли верно в этой проге???

п.с. мне сказали что она неправильная...

[alex_fcsm]

uses crt;
const m=5;
      n=5;
var a:array [1..m,1..n] of integer;
    b,temp:array[1..n] of integer;
    i,j,k:integer;

begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5)+1;
    write(a[i,j]:3);
   end;
   writeln;
 end;
for j:=1 to n do
 begin
  b[j]:=1;
   for i:=1 to m do
    b[j]:=b[j]*a[i,j];
 end;
 
 for i:=2 to n do
  for j:=n downto i do
    if b[j]<b[j-1] then
   begin
     k:=b[j];
     b[j]:=b[j-1];
     b[j-1]:=k;
     for k:=1 to m do
      temp[k]:=a[k,j];
     for k:=1 to m do
      a[k,j]:=a[k,j-1];
     for k:=1 to m do
      a[k,j-1]:=temp[k];
   end;
writeln('==============================');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
writeln('==============================');
for i:=1 to n do
 write(b[i],' ');
end.

[Stilet]

А ты ее проверь.
Вроде криминала я так на вскидку не вижу.

[alex_fcsm]

for i:=1 to 4 do for J:=1 to 4 do
if x[5,j-1]>x[5,j] then for k:=1 to 5 do begin

в цикле j равняется 0

Замени на

for j:=2 to 4