Thủ tục

uses crt;
var m,n:integer; {m,n phải khai báo vì có sử dụng ở chương trình chính}
procedure hcn(m,n:integer); {m,n này là tham số truyền vào khác m,n ở chương trình chính}
var i,j:integer;
begin
  for j:=1 to n do write('*');
  writeln;
  write('*');
  for i:=2 to m do
    begin
      for j:=2 to n-1 do write(' ');
      writeln('*');
    end;
  for j:=1 to n do write('*');
end;
begin
  readln(m,n);
  hcn(m,n); {ở chương trình con có 2 tham số truyền vào, nên gọi cũng cần có 2 tham số}
  readln;
end.