Операторы цикла - Turbo Pascal

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

1-дано N вещественных чисел. Найти максимальное число и его номер. 2-Дано N вещественных чисел. Вычислить разность между максимальным и минимальным из них. Я тут набросал программу, но не знаю. Правильно или нет. 1 программа.

                    Листинг программы
                
 
                        
                          
                    
var i,n:integer; 
a,max,nmax:real; 
begin 
write('n='); 
read(n); 
writeln('Введите ',n,' целых чисел:'); 
read(a); 
max:=a; 
nmax:=1; 
for i:=2 to n do 
begin 
read(a); 
if a>=max then 
begin 
max:=a; 
nmax:=i; 
end; 
end; 
writeln('Максимальный =',max,' его номер=',nmax); 
end.

2 программа.

                    Листинг программы
                
 
                        
                          
                    
var n,i:integer; 
a,min,max,nmin,nmax:real; 
begin 
write('n='); 
read(n); 
writeln('Введите ',n,' целых чисел:'); 
read(a); 
min:=a; 
max:=a; 
nmin:=1; 
nmax:=1; 
for i:=2 to n do 
begin 
read(a); 
if a<min then 
begin 
min:=a; 
nmin:=i; 
end; 
if a>=max then 
begin 
max:=a; 
nmax:=i; 
end; 
end; 
writeln(max-min); 
end.

Решение задачи: «Операторы цикла»

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

  read(a);
  max:=a;

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

Строка кода read(a); считывает значение переменной a с экрана.
Значение a присваивается переменной max, которая изначально была равна a.
В результате выполнения предыдущих двух действий, значение max становится максимальным из всех значений, введенных пользователем.