Код
program name;
type
nama=record
name: string;
otvet: string;
end;
var ai: array[1..6] of nama;
found:boolean;
f:text;
begin
assign(f,'name.txt'); reset(f);
end.
type
nama=record
name: string;
otvet: string;
end;
var ai: array[1..6] of nama;
found:boolean;
f:text;
begin
assign(f,'name.txt'); reset(f);
end.
А вот что делать дальше пока не знаю. Подкиньте идейку если не сложно.