На языке программирования pascal abc написать программу для получения определителя матрицы.

[hellstaff]

На языке программирования pascal abc написать программу для получения определителя матрицы. Розмер матрицы та коэффициенты задает пользователь. Вычисления выполняются методом Гауса. Помогите написать

[p51x]

Таки в чем трудности? Какие ошибки выдал компилятор?

[hellstaff]

procedure n (a,b,u:real;var c:real);
begin
c:=c-(b/a)*u;
end;
var
a:array[1..20,1..20]of real; d,t:real;
r,i,j,k,s,q:integer;
BEGIN
writeln('Введіть розмірність матриці');
readln(r);
d:=1;
for j:=1 to r do
begin
for i:=1 to r do
begin
writeln('Ведіть a',i,j);
readln(a[i,j]);
end;
end;
for i:=1 to r do begin
for j:=1 to r do begin
write(a[i,j]:5:0); if j=r then writeln; end; end;
if r>1 then begin

for i:=1 to r-1 do
begin
if a[i,i]=0
then
begin
for s:=i+1 to r do
if a[s,i]<>0 then begin for k:=1 to r do
begin
t:=a[s,k];
a[s,k]:=a[i,k];
a[i,k]:=t;

end;
break;
end

else d:=0;

end;
for j:=i+1 to r do
for q:=i+1 to r do
n(a[i,i],a[q,i],a[i,j],a[q,j])
end;


for i:=1 to r do
d:=a[i,i]*d;

end
else d:=a[1,1];
writeln(d);

end.