Дана последовательность чисел, найти в ней наименьшее число - Turbo Pascal

Формулировка задачи:

Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

                    Листинг программы
                
 
                        
                          
                    
uses crt;
const c=65536;
var a:array[1..c] of integer;
    i,n,k:integer;
begin
readln(n);
For i:=1 to n do
 begin
 readln(A[i]);
 if a[i]<a[i+1] then k:=a[i]
  else k:=a[i+1];
 end;
 writeln(k);
end.

В чём ошибка?

Решение задачи: «Дана последовательность чисел, найти в ней наименьшее число»

Листинг программы

uses crt;
const c=65536;
var a:array[1..c] of integer;
i,n,k:integer;
f:text;
begin
readln(n);
k:=65536;
For i:=1 to n do
begin
readln(A[i]);
if a[i]<k then k:=a[i]
end;
assign(f,'out.txt');
rewrite(f);
writeln(f,k);
close(f);
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующую задачу:

Создается переменная c со значением 65536, которая представляет собой максимальное количество чисел, которые могут быть хранены в массиве.
Создается переменная a, которая представляет собой массив из n чисел.
Переменные i, n и k инициализируются значениями 1, n и 65536 соответственно.
В цикле for переменная i итерируется от 1 до n.
Внутри цикла переменная a[i] считывается из входных данных.
Если значение a[i] меньше значения переменной k, то значение k обновляется значением a[i].
После завершения цикла создается файл f с именем 'out.txt', который будет использоваться для записи результата.
Функция rewrite(f) используется для перезаписи содержимого файла f.
Значение переменной k записывается в файл f с помощью функции writeln(f,k).
Файл f закрывается с помощью функции close(f).