Найти и исправить ошибку (Паскаль) - Pascal ABC

program biblioteka1;
const
n = 3;
type
  tStr=string[20];
  tData=record
    d,m,y:integer;
    end;
  tUser=record
    Fam:tStr;
    DatZ,DatV:tData;
    end;
var
  i,j,k:integer;
  d:array[1..n] of tUser;
  e:array[1..n] of integer;
procedure readData(var a:tData);
  var
    b:string;
  begin
    readln(b);
    a.d:=(ord(b[1])-ord('0'))*10+ord(b[2])-ord('0');
    a.m:=(ord(b[4])-ord('0'))*10+ord(b[5])-ord('0');
    a.y:=(ord(b[7])-ord('0'))*10+ord(b[8])-ord('0');
  end;
begin
  writeln('Заполните данные о читателях: ');
  for j:=1 to n do
    begin
      write('Фамилия:');
      readln(d[j].Fam);
      write('Дата заказа(дд.мм.гг): ');
      readData(d[j].DatZ);
      write('Дата выдачи(дд.мм.гг): ');
      readData(d[j].DatV);
    end;
  writeln('Самый маленький срок поиска');
  for j:=1 to n do
    begin
     e[j]:=d[j].DatV.y-d[j].DatZ.y;
     if d[j].DatV.m<d[j].DatZ.m then e[j]:= e[j]+30*12;
     if d[j].DatV.d<=d[j].DatZ.d then e[j]:= e[j]+30;
     e[j]:=e[j]+d[j].DatV.d-d[j].DatZ.d
    end;
    i:=1;
  for j:=2 to n do
    if e[i]>e[j]then i:=j;
  writeln('Result:',e[i],'days');
  writeln('Неудоволетворённых заказов');
  for j:=1 to n do
    if d[j].DatV.d=0 then inc(k);
  writeln('Result:',k,' ');
  end.