perché questo programma non funziona?

[luzzoebay]

salve ragazzi ho provato a fare questo esercizio che mi ha dato il prof ma mi da un errore eccolo:

scrivere un programma che calcoli se due date sono consecutive salvate in un array. se sono consecutive il programma si ripete se no termina
allora ho dato a ogni giorno,mese, anno delle due date una variabile vi faccio vedere come ho fatto

program date;
var a:array[1..31] of integer;
var b:array[1..12] of integer;
var c:array[1..3000] of integer;
var d:array[1..31] of integer;
var e:array[1..12] of integer;
var f:array[1..3000] of integer;
var s:integer;
begin
repeat
begin
writeln('inserisci il giorno della prima data');
readln(array[a]);
writeln('inserisci il mese della prima data');
readln(array);
writeln('inserisci lo anno della prima data');
readln(array[c]);
writeln('inserisci il giorno della seconda data');
readln(array[d]);
writeln('inserisci il mese della seconda data');
readln(array[e]);
writeln('inserisci lo anno della seconda data');
readln(array[f]);
s:=a+1
r:=b+1
i:=c+1
if s=d r=b i=c then
writeln('le date sono consecutive!');
end;
else
writeln('le date non sono consecutive!');
writeln('premi invio per terminare');
end.





sapendo che un numero è consecutivo di un altro quando si aggiunge +1(5 consecutivo di 4 infatti 4+1=5)
ma mi da errore nella lettura degli array. vi prego aiuto