Помогите найти ошибку!(Procedure)

[Seriy8888]

Дана матрица А(5,3)
1)Создать новый одномерный массив, каждый элемент которого равен среднему арифметическому элементов соответствующей строки данной матрицы.
2)Найти наименьший элемент 3-го столбца.
3)Поменять местами наименьший элемент 3-го столбца и элемент а23.

Программа:
Program Laba3;
type
ta=array[1..5,1..3] of real;
tc=array[1..5] of real;
var
a:ta;
c:tc;
r,s:real;
i,j,imin,jmin:integer;
amin:real;
Procedure WWOD(a:ta;m,n:integer);
begin
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
end;
Procedure WIWOD(x:ta;m,n:integer);
begin
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j]:8:0);
writeln;
end;
end;
Procedure Sum(x:ta;m,n:integer;var s:real);
begin
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 3 do
s:=(s+a[i,j]);
c[i]:=s/3;
end;
for i:=1 to 5 do
writeln(c[i]:8:0);
end;
Procedure Am(a:ta;m,n:integer);
begin
amin:=exp(10*ln(10));
for i:=1 to 5 do
begin
j:=3;
if amin>a[i,j] then
begin
amin:=a[i,j];
imin:=i;
jmin:=3;
end;end;
r:=a[imin,jmin];
a[imin,jmin]:=a[2,3];
a[2,3]:=r;
end;
begin
writeln('vvedi matricy A');
WWOD (a,5,3);
Writeln('matrica A');
WIWOD(a,5,3);
Sum (a,5,3,s);
writeln ('s=',s:8:0);
writeln('amin=',amin:8:0);
end.

[alex_fcsm]

Program Laba3;
uses crt;
type
 ta=array[1..5,1..3] of real;
 tc=array[1..5] of real;

var a:ta;
    c:tc;
    r,s:real;
    i,j,imin,jmin:integer;
    amin:real;

Procedure WWOD(var a:ta;m,n:integer);
begin
 for i:=1 to m do
  for j:=1 to n do
   read(a[i,j]);
end;

Procedure WIWOD(x:ta;m,n:integer);
begin
  for i:=1 to m do
   begin
    for j:=1 to n do
    write (x[i,j]:8:0);
    writeln;
  end;
end;

Procedure Sum(x:ta;m,n:integer;var s:real);
begin

for i:=1 to 5 do
begin
s:=0;
for j:=1 to 3 do
s:=s+x[i,j];
c[i]:=s/3;
end;
for i:=1 to 5 do
writeln(c[i]:6:3);
end;

Procedure Am(var a:ta;m,n:integer);
begin
imin:=1;
 for i:=2 to 5 do
   if a[imin,3]>a[i,3] then imin:=i;
r:=a[imin,3];
writeln('amin=',r:4:0);
a[imin,3]:=a[2,3];
a[2,3]:=r;
end;

begin
clrscr;
writeln('vvedi matricy A');
WWOD (a,5,3);
clrscr;
Writeln('matrica A');
WIWOD(a,5,3);
Sum (a,5,3,s);
Am(a,5,3);
WIWOD(a,5,3);
writeln ('s=',s:4:0);
end.