Как преобразовать тип в переменную

[Cryptic22]

Как сделать чтобы z=j?

Program Farit;
Type answer=record
//const z:answer
h:=('Фарит?');
l,k,i,p,v,b,n:String;
//l:=('Кто?');
//k:=('Слышал');
//i:=('Что?');
//p:=('Это большой негр?');
//v:=('Что он хотел');
//b:=('Он нашел меня, искал тебя');
end;
var a,b,h,m,l,k,i,p,v,n:String;
//z:answer;
//const z:answer=h:'Кто?';k:'Что?';i:'?';p:'Что он хотел?';v:'Фарит';b:'Слышал';
//z: answer;
//h:=('Фарит?');
j:answer;
//k:=('Слышал');
//i:=('Что?');
//p:=('Это большой негр?');
//v:=('Что он хотел');
//b:=('Он нашел меня, искал тебя');
Begin
Writeln('Тебя искал Фарит');
Readln(a);
if(a=j)then
Writeln('Огромный негр')
else 
Writeln('Не будешь спрашивать кто это?');
if(a<>j)then
Repeat
Readln(a);
if(a=j)then
Writeln('Огромный негр')
else 
Writeln('Не будешь спрашивать кто это?');
until a = 'Кто?';
end.

[Sciv]

Если Вы про обращение к полям записи, то делается так:

  if a = j.h then

Если Вы храните варианты ответов - то запись для этого дела самый бессмысленный вариант, человечество давно перешло на массивы. Но если уж продолжаете настаивать на использовании именно record, то проверки нужно делать такие:

with j do
  if (a = h) or (a = k)  or (a = i) or (a = p) or (a = v) or (a = b) then 
    ...

или в более развёрнутом виде:

  if (a = j.h) or (a = j.k)  or (a = j.i) or (a = j.p) or (a = j.v) or (a = j.b) then 
    ...