Найти минимальный элемент массива B(15) и определить его порядковый номер - Pascal

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

Помогите с задачкой на массив: Найти минимальный элемент массива B(15) и определить его порядковый номер.

Решение задачи: «Найти минимальный элемент массива B(15) и определить его порядковый номер»

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

Program primer1;
const a=15;
var i,c,s:integer;
   m: array [1..a] of integer;
begin
s:=0;
Writeln('Элименты массива');
for i:=1 to  a do 
 m[i]:=random(5)+3;
 for i:=1 to a do
write(m[i],' ');
c:=m[1];
 for i:=1 to a do
 begin
 if (m[i]<c) then
 begin
 c:=m[i]; s:=i;
 end; end;
 Writeln('Минимальное значение= ',c,' Его номер= ',s);
 end.

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

Объявляются переменные: — i, c, s — целочисленные, используются для цикла и временной переменной; — m — массив целочисленного типа, размером 15, элемент m[i] — переменная, в которой хранится i-й элемент массива.
Инициализируются начальные значения переменных: — s — счётчик для перебора элементов массива; — m[i] — каждый элемент массива инициализируется случайным числом от 3 до 8.
Выводится список элементов массива m.
Находится минимальное значение в массиве m. Для этого: — инициализируется счётчик s, который будет хранить номер минимального элемента; — инициализируется переменная c значением первого элемента массива m; — происходит перебор всех элементов массива m; — если текущий элемент меньше значения переменной c, то значение переменной c обновляется, а значение переменной s запоминает номер текущего элемента.
Выводится сообщение с минимальным значением и его номером.