DELPHI para C

[Ulysses Bebem]

Galera, preciso de uma ajuda, fiz uma programação em Delphi e to apanhando pra passar ela pra C.

è um trabalho de facul, professor não vai acc em Delphi.

quem puder me ajudar ae fico grato.. segue o code:

OBS: Essas variaveis vão ser puxado do restante do programa ... é um programa para dimensionar vigas.... fiquei com a parte de escalonamento das matrizes.. 

var  Form1: TForm1;  k,w : LongWord;  i,j,m,n,np:Integer;  x,y,p,ma,s:Real;  x1,y1,F,u: array of real;  kg: array of array of real;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);begin  np:=spn.Value;  Setlength(kg,np+3,np+3);  Setlength(F,np+3);  Setlength(u,np+3);  //solicitação dos pontos  for i:=1 to np do  begin    for j:=1 to np do    begin      Val(InputBox('Coeficiêntes:'+Floattostr(i)+','+Floattostr(j),'',''),kg[i,j],k);    end;  end;  for i:=1 to np do    Val(InputBox('vetor B:'+Floattostr(i),'',''),f[i],k);  begin  end;  //resolução do sistema linear [k].[x]=[f]  for i:=1 to np-1 do  begin    if kg[i,i]=0 then begin showMessage ('Matriz inconsistente');exit;end;    for j:=(i+1) to np do    begin      if Kg[j,i]<>0 then      begin        ma:=kg[j,i]/kg[i,i];        for w:=i to np do kg[j,w]:=kg[j,w]-ma*kg[i,w];        F[j]:=F[j]-ma*F[i];      end;    end;  end;  if kg[np,np]=0 then begin showMessage ('Matriz inconcistente');exit;end;  u[np]:=F[np]/kg[np,np];  for i:=2 to np do  begin    s:=0;    for j:=1 to i-1 do s:=s+kg[np-i+1,np-j+1]*u[np-j+1];    if kg[np-i+1,np-i+1]=0 then begin showMessage('Matriz inconcistente');exit;end;    u[np-i+1]:=(F[np-i+1]-s)/kg[np-i+1,np-i+1];  end;  //Geração da solução na tela  for i:=1 to np do  begin    ShowMessage('x'+Floattostr(i)+'='+Floattostr(u[i]));  end;end;procedure TForm1.Button1Click(Sender: TObject);begin  close;end;end.