Turbo Pascal. Как исправить ошибку №14?

[Lyubov']

Завтра сдаю курсовую, в Паскале - как в темном лесу, помогите пожалуйста.

Есть задача: дан массив чисел, найти значение максимального элемента.
Программу написала, в компьютерном классе проверила - все работает.


Program Massiv1;
Uses WinCRT;
Var max: real;
n,i: integer;
a: array [1..50] of real;
Begin
Writeln ('Введите n');
Read (n);
Writeln ('Введите массив');
For i:=1 to n do
Read (a[i]);
Max:=a[1];
For i:=2 to n do
If a[i]>a[1] then max:=a[i];
Write ('Максимальный элемент=', max:5:1);
End.


Дома при нажатии кнопки "Run" выскакивает окошко "Error 14: Invalid filename".

Мне советовали заменить
uses wincrt на
uses crt
или просто убрать.

Попробовала - результат тот же.

Подскажите, как это исправить?

[mss]

Забей.
Алгоритм, судя по тексту программы, реализован вполне корректно.
А с его компиляцией пусть препод парится - твое дело исходный текст с верно написанной программой ему представить)
Будет вякать - так и скажи ему, мол, ты нам ничего не рассказывал про конфигурирование TP IDE для работы в произвольно взятой опер.среде, тебе мол надо исп.файл - ты и компилируй))

[Lyubov']

Спаибо, mss)

Но, к сожалению, мое дело в курсовой не только исходный текст с верно написанной программой представить, но и принтскрин результата работы программы вывести(

[Alex11223]

Сделайте в другой IDE. Консольное окно везде одинаковое. В PascalABC и FPC компилируется и работает.

[Alex11223]

If a[i]>a[1] then max:=a[i];

Кстати, тут ошибка по-моему. Наверно надо сравнивать с max, а не первым элементом массива если вы ищите максимальный элемент.