Заполнить схему состава футбольной команды.

а ты дай то, что надо заполнить и условие ,  а то непонятно, данных ноль

Var a,b,n,i: integer; bol: boolean; begin   //инициализируем переменные   i: =0;   n: =0;   bol: =true;     //осуществляется ввод   writeln('введите число b: '); readln(b);   writeln('введите число n: '); readln(n);   writeln('введите ', n,' целых чисел.');     //цикл (с пред условием) будет повоторятся n раз   while i < n do       begin       //осуществляется ввод с клавиатуры           read(a);           //проверяем является (a больше b) и (bol = true)               if (a> b)and(bol) then               //если является                   begin                       //выводит значение b через пробел                       write(' ',b);                       //и присваивает bol = ложь                       bol: =false;                   end;                   //выводит значение а через пробел               write(' ',a);               //инкрементирует i, тоесть i: =i+1               inc(i);       end; end.

Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации. программа запрашивает некоторое значение "в", на превышение которого потом она реагирует один раз. затем запрашивается количество чисел, которые надо ввести. эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т.е. программа повторяет введенное число. в случае, когда введенное число первый раз превышает "в", перед этим числом выводится значение "в". именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.