Написать программу для вывода таблицы массивов. Pascal ABC.NET

Вывести на экран ведомости, оформив исходные данные в виде массивов. Полученные результаты представить в виде таблицы. Имеются сведения о месячном пробеге пяти автомобилей фирмы и нормах расхода бензина для каждой марки автомобиля. Определить общий расход бензина для каждой марки автомобиля, автомобиль с наибольшим пробегом за месяц, суммарный расход бензина по фирме. Моя попытка написать код:

uses crt;
const
  N=5;
  marka:array[1..N] of string=(' BMW ',' Ford ',' Toyota ',' Audi ','Hyundai');
var
  probeg:array[1..N] of integer;
  nrb:array[1..N] of real;
  orb:array[1..N] of real;
  sum: real;
  i,max,p: integer;
begin
  write('Введите пробег авто: '); readln(probeg);
  write('Введите норму расхода топлива: '); readln(nrb);
  for i:=1 to N do
    read(orb[i]);
  orb:=1;
  for i:=1 to N do
    orb:=orb*orb[i];
  writeln('Общий расход бензина: ', orb);
  max:=probeg[1]; p:=1;
  if probeg[i]>max then
  begin
    max:=probeg[i];
    p:=i;
  end;
  writeln(' ':9,'СВЕДЕНИЯ о расходе бензина фирмы');
  writeln('Марка автомобиля', marka);