Прямоугольник из звёздочек, а в нём текст - Pascal ABC

Формулировка задачи:

здравствуйте. нужно создать прямоугольник такого вида: ********** *Привет* ********** *Как дела?* *********** Делаю так, но просто кучу раз выводит приветприветпривет... как сделать мой пример, может кто-то помочь?

Program kvadrat;
var
  i, j: integer;
begin
writeln;
  for i:=1 to 5 do   {строки}
  begin
    for j:=1 to 6 do  {столбцы}
      if (i in [1,5]) or (j in [1,6])
        then write('*');
 
    writeln;
  end;
  readln;
end.

Решение задачи: «Прямоугольник из звёздочек, а в нём текст»

Листинг программы

Program kvadrat;
procedure okno(s:string; k:byte);
var i:byte;
begin
if k=0 then
 begin
  for i:=1 to length(s)+2 do
  write('*');
  writeln;
 end;
writeln('*',s,'*');
for i:=1 to length(s)+2 do
write('*');
writeln;
end;
begin
okno('Привет!',0);
okno('Как дела?',1);
end.

Объяснение кода листинга программы

Создаётся программа kvadrat.
Создаётся процедура okno.
Объявляется переменная i типа byte.
В блоке if проверяется значение переменной k. Если оно равно нулю, то выполняется цикл for.
В цикле for от 1 до длины строки s плюс 2 выводится символ *.
После окончания цикла выводится символ * и строка s в том же формате.
Выполняется еще один цикл for.
В этом цикле выводятся символы *.
После окончания второго цикла выводится символ * и строка s в том же формате.
Конец программы.
Вызываются процедуры okno с двумя аргументами: Привет! и Как дела?.
Программа завершается.