вывести в виде таблицы (pascal ABC)

[программирование]

помогите, пожалуйста, вывести в виде таблицы

№ п/п П.І.П. Марка автомашини Балансова вартість автомашини, тис. грн. Норма амортизаційних відрахувань, % Амортизаційні відрахування,
тис. грн.

1 2 3 4 5 6
1. Банько А.Р. ГАЗ -52 15,24 15
2. Веред П.Д. ГАЗ -52 15,24 15
3. Гармаш О.Х. ГАЗ -САЗ-53 27,98 15
4. Зубов Н.Г. ГАЗ -САЗ-53 29,68 15
5. Манеев В.С. ГАЗ -53 "А" 18,05 15
6. Ситник Л.У. ЗИЛ-157 24,50 15
7. Палій Л.О КАЗ -608 38,30 15
Всього:

program lb;
uses crt;
var n,x,y,i,d:integer; a,b:string;
begin
     clrscr;
     writeln('Амортизаційні відрахування');
     writeln('+--------------+-----------------+--------+-----------+-----------+------------');
     writeln('|№ п/п |П.І.П.  | Марка авто  |Балансова | Норма амортизаційних | Амортизаційні| ');
     writeln('|      |        |             | вартість | відрахувань,%        | відрахування | ');
     writeln('|      |        |             | aвто,тис.|                      | тис. грн.    | ');
     writeln('|      |        |             | грн.     |                      |              |');
     writeln('+--------------+-----------------+--------+-----------+-----------+------------');
     delay(5000);

    readln;

    end.