Помогите нарисовать машину в паскале из разных фигур

помогите написать программу в паскале пожалуйста.

program z1;
var
C: array [1..15, 1..15] of integer;
k, b, n, minpd: integer;
i, j: byte;
begin
writeln('Введите размер матрицы NxN');
readln(n);
if (n <= 15) then begin
for i := 1 to N do
for j := 1 to N do C[i, j] := random(500) - 100;
writeln('Матрица: ');
for i := 1 to N do
begin
for j := 1 to N do write(C[i, j]:4);
writeln;
end;
writeln;
minpd := C[1, N];
for i := n downto 1 do
for j := n - i + 1 to n do
if C[i, j] < minpd then begin
minpd := C[i, j];
k := i;
b := j;
end;
writeln('Наименьший элемент = ', minpd);
writeln('Индексы - ', k, ' ', b);
readln;
end;
end.

свойств существительных.

7. Название объекта, записанное в список, это ... списка

9.Используется для получение значения свойствыа ДЛИНА.

10. Набор объектов с одинакомыми свойствами.

13. Высказывание бывает исинное и ...

14. Данные, записанные в одну строку таблицы.

15. Один из символов двоичного кодирование

16. Число, имеющее свойства: нечётное, делится на 3, однозначное

17. (3, 7) ... клетки

По вертикали:

1. Каждый элемент списка имеет ...

2. Устройство компьютераю. Обрабатывает информацию, управляет другими устройствами.

3. Таблицы содержит ...

4. 10 лет ... свойства с именем ВОЗВРАСТ.

6. Количество разных двоичных символов.

8. Какой порядок использован в списке?

Животные

1. Аист

2. Белка

3. Волк

11. Устройство ввода

16. Свойство, которое есть у стороны многоугольника

18. Расшифруй слово ОТЕН. Использован шифр перестановки