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

[АнтонКурышов]

Программа считает определитель матрицы, но делает это не правильно, найдите пожалуйста ошибку в программе...

Program Gaus;
Uses Crt;
Type mat=array[1..20,1..20] of real;
Var a:mat; n:integer; det:real;
Procedure wwod(n:integer; Var a:mat);
Var i,j:integer;
Begin
Writeln('Введите элементы матрицы(по строкам)');
For i:=1 to n do
For j:=1 to n do
Read(a[i,j]);
End;
Function Gauss(n:integer; a:mat):Real;
Var i,j,k:integer;
c,p,m,s:Real;
Begin 
p:=1;
For k:=1 to n-1 do Begin
s:=a[k,k];
j:=k;
For i:=1 to n do 
Begin
m:=a[i,k];
if abs(m)>abs(s) then 
Begin 
s:=m; j:=i; 
end;
end;
if j<>k then 
Begin 
p:=p-1;
For i:=k to n do 
Begin
m:=a[k,i]; 
a[k,i]:=a[j,i]; 
a[j,i]:=m;
End;
End;
For i:=k+1 to n do Begin
c:=a[i,k]/a[k,k];
For j:=k+1 to n do
a[i,j]:=a[i,j]-c*a[k,j];
end;
p:=p*s; end;
Gauss:=p*a[n,n];
end;
Begin(*Основная программа*)
Clrscr;
Write('Введите размер матрицы n=');
Readln(n);
Wwod(n,a); det:=Gauss(n,a);
Writeln('Определитель равен',det:8:4);
End.

[min@y™]

Для начала, посмотри сюда.