Vẽ hình chữ nhật

uses crt;
var
  m,n:integer;
procedure hcn(m,n:integer);
var i,j:integer;
begin
  for j:=1 to n do write('*');
  writeln;
  for i:=1 to m-2 do
    begin
      write('*');
      for j:=1 to n-2 do write(' ');
      writeln('*');
    end;
  for j:=1 to n do write('*');
end;
begin
  clrscr;
  readln(m,n);
  hcn(m,n);
  readln;
end.