Записи: проверить, является ли год високосным

function vis(d:Date):boolean;//функция для определения високосного года
begin
vis:=((d.year mod 4=0)and(d.year mod 100<>0))//если кратно 4 и не кратно 100
or((d.year mod 4=0)and(d.year mod 400=0))//или кратно 4 и кратно 400
end;

type Date=record
day:integer;
month:1..12;
year:1999..2018;
end;
var d:array[1..5] of Date; i:integer; 
function vis(d:Date):boolean;//функция для определения високосного года
begin
vis:=((d.year mod 4=0)and(d.year mod 100<>0))//если кратно 4 и не кратно 100
or((d.year mod 4=0)and(d.year mod 400=0))//или кратно 4 и кратно 400
end;
begin
for i:=1 to 5 do
begin
writeln('Введите день');
readln(d[i].day);
writeln('Введите месяц');
readln(d[i].month);
writeln('Введите год');
readln(d[i].year);
end;
writeln(vis(d));
end.

type Date=record
day:integer;
month:1..12;
year:1999..2018;
end;
function vis(d:Date):boolean;//функция для определения високосного года
begin
vis:=((d.year mod 4=0)and(d.year mod 100<>0))//если кратно 4 и не кратно 100
or((d.year mod 4=0)and(d.year mod 400=0))//или кратно 4 и кратно 400
end;
var d:Date;
    i:byte;
begin
for i:=1 to 5 do
 begin
  writeln('Введите день');
  readln(d.day);
  writeln('Введите месяц');
  readln(d.month);
  writeln('Введите год');
  readln(d.year);
  writeln('Год високосный? ',vis(d));
 end;
end.