СЛАУ методом Гаусса доработать программу!!!

[frol55]

Ребята, на завтра срочно нужно сдать лабораторную, сам мучался пару дней, сегодня вспомнил про ваш форум, надеюсь подскажите и поможете доработать код программы:

3х-2у+5z=7
7x+4y-8z=3
5x-3y-4z=-12

Прошу помочь рассчитать коэффициенты
a[1,1]:=;a[1,2]:=;a[1,3]:=;b[1]:=;
a[2,1]:=;a[2,2]:=;a[2,3]:=;b[2]:=;
a[3,1]:=;a[3,2]:=;a[3,3]:=;b[3]:=;

и еще одна просьба, чтобы ответ был оформлен в виде процедуры!!!

program Gauss_Classic;
uses crt;

type vec=array[1..10] of real;
mas=array[1..10] of vec;

var a:mas;b,x:vec;
h:real;
i,j,k,n:integer;

Begin {Начало основной программы}
Clrscr;
write('Введите количество уравнений: ');read(n);
for i:=1 to n do begin
writeln('Уравнение ',i);
writeln('Введите коэффициенты');
for j:=1 to n do begin
write('a[',i,',',j,']=');read(a[i,j]);end;
writeln('Введите правую часть уравнения');
write('b[',i,']=');read(b[i]); end;
Clrscr;
writeln('Исходная матрица');
for i:=1 to n do begin
write(i);
for j:=1 to n do
write(a[i,j]:10:5);
writeln(b[i]:10:5) end;
writeln; writeln; writeln;
{Прямой ход - исключение переменных}
for i:=1 to n-1 do
for j:=i+1 to n do begin
a[j,i]:=-a[j,i]/a[i,i];
for k:=i+1 to n do
a[j,k]:=a[j,k]+a[j,i]*a[i,k];
b[j]:=b[j]+a[j,i]*b[i] end;
x[n]:=b[n]/a[n,n];
{Обратный ход - нахождение корней}
for i:=n-1 downto 1 do begin
h:=b[i];
for j:=i+1 to n do h:=h-x[j]*a[i,j];
x[i]:=h/a[i,i]; end;
writeln('Корни уравнения');
for i:=1 to n do writeln('x(',i,')=',x[i]:10:5);
readkey
end.

только не ругайтесь я сам плохо понимаю, что то собирал с разных программ и так далее