Псевдографика в Паскале Опции

[Расим]

Доброе время суток.
Люди помогите в понедельник сессия а задачу сделать не могу
С помощью знаков «*» нарисовать 2 фигуры близнецов в соответствии . Необходимо написать собственные процедуры, функции для задания примитивов.
Подскажите хотя бы как создать эти процедуры???
Зарание Спасибо

[Расим]

а можно пример такой процедуру например для головы? плз

[Lapp]

а можно пример такой процедуру например для головы?

Вообще-то, самостоятельное написание процедуры для головы было бы очень полезной процедурой для твоей головы..

Вот, смотри.. Тут голова и тело. Точки соединения, про которые я говорил, я выделил знаками х. (Точки соединения - не совсем правильное название; лучше сказать - точки привязки.)

uses
  CRT;

procedure DrawHead(x,y: integer);
const
  m=5;
  n=7;
  Man: array[1..m]of string=(
    ' ***** ',
    '* . . *',
    '*  |  *',
    '*  -  *',
    ' **x** '
  );
var
  i,j: integer;
begin
  x:=x-3;
  y:=y-4;
  for i:=1 to m do for j:=1 to n do if Man[i][j]<>' ' then begin
    GoToXY(x+j-1,y+i-1);
    Write(Man[i][j])
  end
end;

procedure DrawBody(x,y: integer);
const
  m=10;
  n=9;
  Man: array[1..m]of string=(
    '****x****',
    '*       *',
    '*       *',
    '*       *',
    '*       *',
    '*       *',
    '*       *',
    '*       *',
    '*       *',
    '********* '
  );
var
  i,j: integer;
begin
  x:=x-n div 2;
  for i:=1 to m do for j:=1 to n do if Man[i][j]<>' ' then begin
    GoToXY(x+j-1,y+i-1);
    Write(Man[i][j])
  end
end;

var
  i,MaxX,MaxY: integer;

begin
  ClrScr;
  MaxX:=Lo(WindMax);
  MaxY:=Hi(WindMax);
  TextColor(Yellow);
  DrawHead(20,10);
  TextColor(LightBlue);
  DrawBody(20,12);
  ReadLn
end.

Конечно, это полнейшая фигня (я имею в виду такую организацию программы). Было бы правильнее сделать примитивы как переменные - записи, содержащие массивы строк, размеры и точки привязки, а для вывода сделать одну процедуру. Тогда примитивы можно было бы задавать в файле данных (кстати, намного удобнее редактировать). Еще правильнее было бы сделать все объектами .