Viết 2 ctr con tìm chu vi và diện tích của 1 hcn áp dụng các ctr con đó để tìm chu vi và S của n hình chữ nhật với chiều dài và chiều rộng được nhập từ bàn phím. Ai biết giúp mik với

var d, r: real;

Function CV(x, y: real): real;

    Begin

        CV:=(x+y)*2;

    End;

Function DT(x, y: real): real;

    Begin

        DT:=a*b;

    End;

Begin

    Write('nhap chieu dai va chieu rong: ');

    Readln(d, r);

    Writeln('chu vi: ', cv(d, r));

    Write('dien tich: ', dt(d, r));

    Readln

End.

program Mang;
uses crt;
var   a,b: array[1..10000] of integer;
         n,i: integer;
     
function dientich(a,b: integer):integer;
begin
      dientich:=a*b;
end;

function chuvi(a,b: integer):integer;
begin
      chuvi:=(a+b)*2;  
end;

begin
       clrscr;
      
       write('Nhap so hinh chu nhat= ');readln(n);
      
       for i:=1 to n do
           begin
          
              write('Chieu dai hcn thu ',i,': ');readln(a[i]);
             
              write('Chieu rong hcn thu ',i,': ');readln(b[i]);
             
           end;
       
        writeln('----------------------');
          
        for i:=1 to n do
       
             begin
                
   writeln('Dientich hcn thu ',i,': ',dientich(a[i],b[i]));
       
        writeln('Chuvi hcn thu ',i,': ',chuvi(a[i],b[i]));
      
             end;
  readln;
end.