viết chương trình theo kiểu chương trình con vẽ 5 hình chữ nhật có kích thước giống nhau

uses crt;
var a,b,i:word;
procedure hcn(dai,rong:word);
var i,j:word;
begin
      for i:=1 to dai do write(‘*’);
      writeln;
      for j:=1 to rong -2 do
    begin
  write(‘*’);
  for i:=1 to dai -2 do write(‘ ‘);
  writeln(‘*’);
    end;
 for i:=1 to dai do write(‘*’);
 writeln;
end;
begin
        clrscr;
        write(‘cdai, crong: ‘); readln(a,b);
        writeln;
        for i:=1 to 5 do
         begin
          hcn(a,b);
          writeln;
         end;
        readln
end.