Giúp mình với Viết chương trình để đọc chiều dài a và rộng b từ tệp ‘Dientich.txt’ và ghi kết quả tính diện tích hình chữ nhật vào tệp ‘Ketqua.txt’

Const Fi='Dulieu.TXT';
      Fo='Ketqua.TXT';
Var f,g: text;
    a,b: extended;

Function dientich(a,b: extended): extended;
Begin
        dientich:=a*b;
End;

Function chuvi(a,b: extended): extended;
Begin
        chuvi:=(a+b)*2;
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,a,b);
        Writeln(g,dientich(a,b):0:2);
        Write(g,chuvi(a,b):0:2);
        Close(f);
        Close(g);
End.

var f1,f2:text;

      a,b:real;

begin

        assign(f1,'Dientich.txt');reset(f1);

        assign(f2,'Ketqua.txt');rewrite(f2);

        readln(f1,a,b);

        writeln(f2,a*b:0:3);

        close(f1);close(f2);

end.