Разработать процедуру формирования рисунка

[MaxMelnikov]

Помогите пожалуйста с лабораторной работой, я совсем не знаю ничего про функции.

Разработать процедуру формирования рисунка:


Стороны матрицы N и символы, которыми заполняется матрица вместо цифр 1,2,3, задаются в вызывающей программе (процедуре).
Разрабатываемая процедура только формирует матрицу с рисунком.
Вывод изображения осуществляется в вызывающей программе (процедуре)

[Sazary]

Сделал я эту штуку:

uses crt;

procedure pnt;
 var N : integer;
 i,j,k : integer;
 ch : array[1..3] of char;

begin
clrscr;
write('Enter N: ');
readln(N);

write('Vvedite simvol 1: ');
readln(ch[1]);
write('Vvedite simvol 2: ');
readln(ch[2]);
write('Vvedite simvol 3: ');
readln(ch[3]);
TextColor(0);
clrscr;
window(1,1,n*2-1,n*2-1);
{---------}
k := 1;
j := 1;
while j<=n do
 begin
 case k of
 1 : TextBackground(4);
 2 : TextBackground(14);
 3 : TextBackground(3);
 end; {case}
 gotoXY(2*j-1,j);
 for i:=j to n do
  begin
  write(ch[k]);
  {if i <> n then   }
   write(' ');
  end;

 for i:=j+1 to n do
  begin
  gotoXY(2*j-1,i);
  write(ch[k]);
  {if j<n then   }
  write(' ');
  end;

 inc(k);
 if k = 4 then k:=1;
 inc(j);
 end;
TextBackground(0);
TextColor(15);
end;

begin
clrscr;
pnt;

readln;
end.

[MaxMelnikov]

Sazary
Спасибо большое , вы меня очень выручили .