Игра "Угадай число" и вывод списка чемпионов

[manchester_alan]

а еще можно вопросик пожалуйста..? как сделать, чтобы можно было вводить имя игрока? а то не вводится...

with w[i] do
    begin
      while a<>b do
      begin
        write('Игрок: '); readln(w[i].name);
        write(' число: '); readln(b);

и еще типизированный файл в каком типе сделать?

[VIK_aka_TOR]

проблема в предшествующих read, замените из на Readln

write('Количество игроков "B": '); Readln(n);
  Write('Игрок "A" вводит число, которое нужно отгадать:'); readln(a); 
  for i := 1 to n do
  begin
    t := 0;
    b := -1;
    write('Игрок №', i, ', введите ваше имя: '); readln(w[i].name);
    with w[i] do
    begin
      while a <> b do
      begin
        write('Игрок ', name,' угадывает, число: '); readln(b);
        if b > a then
        begin
          Writeln('Много!');
          t := t + 1;
          Writeln;
        end
        else
        if b < a then
        begin
          Writeln('Мало!');
          t := t + 1;
          Writeln;
        end
           else
        begin
          writeln;
          t := t + 1;
          writeln(name, ', ВЫ УГАДАЛИ!!!!');
          Writeln('Число попыток:', t);
          writeln;
        end;      
      end;
    end;
  end;

Уже работает с именами игроков

Файл можно писать в типе List, только добавить количество попыток

  List = record
    Player: Byte; // для чего у вас эта переменная  в структуре?
    name: string;
    attempt: byte; // счетчик попыток
  end;

[manchester_alan]

ааа и все то..( ну спасибо еще раз)

Player: Byte; ну это я хотел, чтобы вот так сделать... таблицу сначала так думал..

begin
 for i:=1 to n-1 do
   for j:=i+1 to n do
    if w[i].player>w[j].player then
     begin
       o:=w[i];
       w[i]:=w[j];
       w[j]:=o;
     end;
     for i:=1 to n do
      with w[i] do
       begin
        Writeln;
        write(i,'Место, Игрок '); write(w[i].player);
        writeln(' Число попыток ', t);writeln;
       end;
  end;

[manchester_alan]

Сообщение от manchester_alan

ааа и все то..( ну спасибо еще раз)

Player: Byte; ну это я хотел, чтобы вот так сделать... таблицу сначала так думал..

begin
 for i:=1 to n-1 do
   for j:=i+1 to n do
    if w[i].player>w[j].player then
     begin
       o:=w[i];
       w[i]:=w[j];
       w[j]:=o;
     end;
     for i:=1 to n do
      with w[i] do
       begin
        Writeln;
        write(i,'Место, Игрок '); write(w[i].player);
        writeln(' Число попыток ', t);writeln;
       end;
  end;

вот так не правильно будет??

[VIK_aka_TOR]

Число попыток нужно добавить в запись, иначе у вас t у всех игроков одинакова
сортировка по player ( как понимаю порядковый номер) он у вас будет известен при выводе списка отсортированного по количеству попыток ( то что i в цикле for при выводе)
В итоге заменяйте player на количество попыток и будет все ок

For i:=1 to n do
  writeln(i:2,' ', w[i].name:15, ' попыток:', w[i].t);

[manchester_alan]

аа ну все спасибо)