Program CreateChampions;

Const
 names: Array [1..10] of String[15] =
	('Alex',
	 'Stupid Ship',
	 'Bella',
	 'Punisher',
	 'Sasha',
	 'C.J.',
	 'Dmitry',
	 'Marinka',
	 'Crazy Aviator',
	 'FBI');
 scores: Array [1..10] of Byte = (107,93,90,77,69,51,49,31,26,23);

Var
 fil: File;
 i: Byte;

{***************************************************************************}

Begin
 Assign(fil,'DATA');
 ReWrite(fil,1);
  for i:=1 to 10
  do begin
      BlockWrite(fil,names[i],15);
      BlockWrite(fil,scores[i],1)
     end;
 Close(fil)
End.