type
  sorevnovanie = record
    fam, im: string[20];
    nsh: 1..99;
    ball: 0..100;
  end;
  fz = file of sorevnovanie;

procedure zadanie_1(var T: text; var f: fz);
var
  temp: sorevnovanie;
  c: char;
begin
  reset(T);
  rewrite(f);
  while not eof(T) do
  begin
    temp.fam := '';
        {прочитаваем посимвольно фамилию очередного ученика}
    repeat
      read(T, c);
      temp.fam := temp.fam + c;
    until c = ' ';
    temp.im := '';
        {прочитаваем посимвольно имя очередного ученика}
    repeat
      read(T, c);
      temp.im := temp.im + c;
    until c = ' ';

    temp.nsh:=1..99;
        {считываем номер школы}
    repeat
      read(T, c);
      temp.nsh :=temp.nsh +c;
    until
      c='';
     temp.ball :=0..100;
        {считываем баллы}
    repeat
      read(T, c);
      temp.ball :=temp.ball +c;
    until
      c='';
  end;
end;

procedure print_binary_file(var f: fz);
var
  temp: sorevnovanie;
begin
  reset(f);
  while not eof(f) do
  begin
    read(f, temp);
    write(temp.fam);
    for var i := 1 to 21 - length(temp.fam) do
      write(' ');
    write(temp.im);
    for var i := 1 to 21 - length(temp.im) do
      write(' ');
    writeln(temp.nsh:5, temp.ball:5 );
  end
end;



var
  T: text;
  f: fz;

begin
  assign(T, 'G:\26lab.txt'); {исходный файл}
  assign(f, 'lr_26.dat');   {бинарный файл}
  zadanie_1(T, f);
  print_binary_file(f);
  writeln;

end.