program Hellowold;

{
  record
}

type
  user = record
    name: string;
    score: integer;
  end;
var
  taguchi, fkoji: user;


begin
  taguchi.name := 'taguchi';
  taguchi.score := 80;

  with fkoji do
  begin
    name := 'fkoji';
    score := 80;
  end;

  writeln(taguchi.name);     
  writeln(fkoji.score);

end.