Рамка из звёздочек вокруг массива

[nec117]

Всем доброго времени суток. Есть задача. Нужно написать программу чтобы она выводила массив а на с рандомно заполненный числами от 1 до 9 внутри рамки из звёздочек. Создать массив то не проблема, а вот рамка.. у меня получилось сделать так:

Program proga;
Uses crt;
Var a,b,i,j,g,k: byte;
Begin
clrscr;
Write('Length=');
Read(a);
Write('Width=');
Read(b);
For i:=1 to a-1 do write('* ');
For j:=1 to b-1 do writeln('*');
For i:=1 to a do write('* ');
Readln(a);
End.

Как сделать правую сторону? Или я не правильно подошёл к заданию и есть более рациональное решение? Или может его нужно выводить вообще весь построчно? из массивов количества с? Буду очень признателен всем советам и критике) Заранее спасибо!

[Serge_Bliznykov]

так пойдёт?

Program proga;
Uses crt;
Var a,b,i,j: byte;
Begin
clrscr;
Write('Length=');
ReadLn(a);
Write('Width=');
Readln(b);
Randomize;

For i:=1 to 2*(b+1)+1 do write('*');
writeln;
for i:=1 to a do
 begin
   Write('*');
   for j:=1 to b do Write((random(9)+1):2);
   WriteLn(' *');
 end;
For i:=1 to 2*(b+1)+1 do write('*');
writeln;
Readln;
End.

[nec117]

ОООО! Просто супер! Спасибо огромное за помощь! Всё гениальное, как говорится оказывается просто))