Если несколько команд набрали одинаковое количество очков, то места между ними распределяются по разнице забитых и пропущенных мячей: чем разница больше, тем место выше. попробуйте усовершенствовать программу, учитывая это правило. для этого в программу надо добавить массив с разницами мячей. придумайте тест, на котором можно проверить работу программы.

Переменная a до выполнения условного оператора имеет значение 20. Чтобы из 20 получить 15, нужно вычесть 5, т.е. должен выполниться оператор присваивания, указанный после then, что возможно при истинности логического выражения if (a<1) ... (a>b).
Отношение a<1 при a=20 ложно, отношение a>b при a=20 и b=5 истинно. Логическая операция, результатом которой является "истинно" в случае, когда один операнд имеет значение "ложно", а второй "истинно" - это операция дизъюнкции ("логическое ИЛИ"). В языке Паскаль она записывается как "or"
ответ: or

//Визуально разделил циклы, чтобы было более читаемо 

var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize; //чтобы random() работал как надо
writeln('Array');

for i:=1 to 10 do
begin;
ar[i]:=random(-10,10); //случайное число от -10 до 10
write(ar[i]:4);
end;

for i:=1 to 10 do //"проходим" через весь массив
if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}

writeln;
writeln('Max:-',max); //выводим на всякий случай максимум

writeln('Final array:');
for i:=1 to 10 do //снова проходим по всему массиву
begin;
if ar[i]=-max then ar[i]:=0; 
{если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
write(ar[i]:4);
end;
end.