Задача Pascal (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.
Когда ввожу матрицу, то получаются 0...

[Викдон]

держи:

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(var a:ta;m,n:integer);
 begin
   for i:=1 to m do
    for j:=1 to n do
      begin
       write('Введите ',i,j,' элемент матрицы А: ');
       readln(a[i,j]);
      end;
 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('Среднее арифметическое',i,' строки: ',c[i]:8:0);
 end;


Procedure Am(var a:ta);
 begin
   amin:=a[1,3];

     for i:=1 to 5 do
      if amin>a[i,3] then
         begin
          amin:=a[i,3];
          imin:=i;
         end;

 r:=a[imin,3];
 a[imin,3]:=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);
Am(a);
writeln('amin=',amin:8:0);
WIWOD(a,5,3);
readln;
end.

[Seriy8888]

Огромное спасибо! Выручил!