Народ пом. с задачей тут нужно создать отдельно процедуру вода и вывода а я ни как не могу

unit unit_records;
 
interface
 const SIZE = 2;
 
 type
  tDate = record
   day: integer;
   month: string;
   year: integer;
  end;
 
  tGoodsItem = record
   company: string;
   cost: real;
   count: integer;
   name: string;
   country: string;
   date: tDate;
  end;
 
  tGoods = array[1..SIZE] of tGoodsItem;
 
implementation
 
 procedure readDate(var date: tDate);
 begin
  read(date.day, date.month, date.year);
 end;
 
 procedure printDate(date: tDate);
 begin
  writeln(date.day, ' ', date.month, ' ', date.year, 'г.');
 end;
 
 procedure readInfo(var goods: tGoodsItem);
 begin
  read(goods.company, goods.cost, goods.count, goods.name, goods.country);
  readDate(goods.date);
 end;
 
 procedure printInfo(goods: tGoodsItem);
 begin
  write(goods.company, ' | ',goods.cost, ' | ',goods.count, ' | ',goods.name, ' | ',goods.country, ' | ');
  printDate(goods.date);
 end;
 
 function getMaxCost(goods: tGoods): integer;
 var
  i: integer;
  max: real;
  pos: integer;
 begin
  max := goods[1].cost;
  pos := 1;
  for i := 2 to SIZE do begin
   if (goods[i].cost > max) then begin
    max := goods[i].cost;
    pos := i;
   end;
  end;
  getMaxCost := pos;
 end;
 
 procedure inputData(var g: tGoods);
 var
  i: integer;
 begin
  for i := 1 to SIZE do begin
   write(i, ') ');
   readInfo(g[i]);
  end;
 end;
 
 procedure printData(g: tGoods);
 var
  i: integer;
 begin
  for i := 1 to SIZE do begin
   write(i, ') ');
   printInfo(g[i]);
  end;
 end;
 
end.

uses unit_records;
 
var
 g: tGoods;
 i: integer;
begin
 writeln('Введите данные(компания, стоимость, кол-во, название, старану произ., дату)');
 inputData(g);
 
 writeln('______________________________');
 writeln('Список товаров:');
 writeln('компания | стоимость | кол-во | название | старану произ. | дату)');
 printData(g);
 
 writeln('Товар с наибольшей ценой:');
 printInfo(g[getMaxCost(g)]);
end.