перевод из паскаля в язык Си

[Yulia24*]

 program z4;
const nm=10;
type mas=array[1..nm,1..nm] of real;

var a:mas;
i,j,n:byte;

procedure zap(var a:mas); {ввод элементов массива}
var i,j:integer;
begin
assign(input,'input.txt');
reset(input);
readln(n);
for i:=1 to n do
for j:=1 to n do
  read(a[i,j]);
  close(input);
  end;

  procedure resh( a:mas);
var i,j:byte;f:boolean;
begin
assign(output,'output.txt');
rewrite(output);
f:=true;            {переменной логического типа присвоим значение ИСТИНА, т.е. считаем
for i:=1 to n do      что матрица симмтричная}
 for j:=1 to n do
 if a[i,j]<>a[j,i] then f:=false;  {если элементы не равны, то логической переменной присвоим 
                                              значение ЛОЖЬ}
   if f then write('YES') else write('NO');
  close(output);
  end;

begin
  zap(a);
  resh(a);
  end.

Переведите пожалуйста с паскаля на язык Си