Проверка record

procedure pro(Var st,st1:string);  {проверка ввода}
type d=record
data:string[10];
vrem:string[8];
end;
const c=2;     {количество записей в массиве}
var g:set of char;
a:string;t:boolean;i,j:byte;
b:array[1..c] of d;
begin
g:=['0'..'9','.'];
for i:=1 to c do
for j:=1 to 2 do
repeat
if j=1 then
writeln('ВВедите свою дату рождения: дд.мм.гггг')
else
writeln('ВВедите время своего рождения: чч.мм.сс');
     readln(a);
     t:=true;                        {элемент проверки ввода}
     if not((b[3]='.')and(b[6]='.'))then t:=false;{тут выдаёт ошибку неприводимых типов}
     for i:=1 to 10 do
     if not(b[i] in g)              then t:=false;
     if t=false then writeln('Неверно, повторите ввод');
until t;
writeln('Число введено верно');
writeln('______________________________________________________________');
{передача числа A в a[i].data и a[i].vrem в завсимости от j}
if j=1 then b[i].data:=a else  b[i].vrem:=a;
end;
end;

if (b[3]<>'.')or(b[6]<>'.') then t:=false;

if((i in [3,6])and(s[i]<>'.'))or((i in [1,2,4,5,7,8])and not(s[i] in ['0'..'9']))
 then t:=false;

for i:=1 to 8 do
if((i in [3,6])and(s[i]<>'.'))or((i in [1,2,4,5,7,8])and not(s[i] in ['0'..'9']))
 then t:=false;

readln(b[i].vrem);