Составить программу, которая будет вводить N чисел и искать максимальное число среди этих чисел.
1<=a[i], N<=100

Хотя, она скорее не ошибка, а описка.

Что же здесь я неправильно сделала?

Я же Вам направил решение на исправление, там в комментарии написано

max:=a[i]; перед for i:=2 to n do. Должно быть max:=a[1]

Спасибо Вам, сама не заметила, как перепутала

constn=100;vara:array[1..n] of integer;max,i:integer;beginrandomize;for i:=1 to n dobeginwriteln(a[i]='');readln(a[i]);end;max:=a[1];for i:=2 to n doIf a[i]>max then beginmax:=a[i];end;writeln;writeln('Max=',max);readln;End.