求数据结构解一元多次方程的代码

我以前学奥赛的时候写过一个这种程序
输入方程组的规模N，下面N行分别输入系数就可以出答案了
用的PASCAL语言

program p1052;{VIJOS 1052 贾老二算算术 解线性方程组}
const maxn=100;
type float=real;
int=integer;
var a:array[1..maxn,1..maxn]of float;
b:array[1..maxn]of float;
d,t,sum:float;
k,l,i,j,m,n,ii,jj,loop:int;
ch:char;
begin
readln(n);
m:=n;
for ii:=1 to n do begin
for jj:=1 to m do read(a[ii][jj]);
read(b[ii]);
end;
k:=1;
d:=0;
l:=0;
while(k<=n)do begin
d:=a[k][k];
l:=k;
for i:=k+1 to n do begin
if(abs(a[i][k])>abs(d)) then begin
d:=a[i][k];
l:=i;
end;
end;