Не соответствие типа

program laba1;
uses crt;
const n = 2;
type
    mas = array[1..3] of integer;
note = record
    lastname: string[20];
    name: string[15];
    telephone:string[15];
    birthday: mas;
end;{record}
var book: array[1..n] of note;
    i: integer;
    s :char;
 
    {Prucedure}
    procedure Inpute;
    var i:integer;
    begin
        writeln('Enter: ');
        GotoXY(7,1);
        for i:=1 to n do
        with book[i] do
        begin
            readln(lastname, name, telephone, birthday);
        end;
    end;

type
    mas = array[1..3] of char;

name:string[40];

name:array[1..2] of string[20];, тогда
book[i].name[1]:='Иван';
book[i].name[2]:='Иванов';

for i:=1 to n do
 begin
  writeln('Запись ',i);
  with book[i] do
   begin
    write('Фамилия: ');readln(name[1]);
    write('Имя: ');readln(name[2]);
    write('Телефон: ');readln(telephone);
    write('День рождения: ');
    for j:=1 to 3 do
    readln(birthday[j]);
   end;
 end;

type mas=array[1..3] of integer;
note=record
.........
date: mas;//день рождения date[1] - день date[2] - месяц date[3] - год
end;{record}
 
var book: array[1..n] of note;
    x:note;
    i,j:integer;
....................................................
for i:=1 to n-1 do
for j:=i+1 to n do
if (book[i].date[3]>book[j].date[3])
or((book[i].date[3]=book[j].date[3])and(book[i].date[2]>book[j].date[2]))
or((book[i].date[3]=book[j].date[3])and(book[i].date[2]=book[j].date[2])
and(book[i].date[1]>book[j].date[1])) then
  begin
   x:=book[i];
   book[i]:=book[j];
   book[j]:=x;
  end;