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

ольга в категроии Информатика, вопрос открыт 30.11.2017 в 11:38

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.