Составить программу заполнения одномерного массива с клавиатуры и подсчета суммы минимального и максимального элементов этого массива.

Program sadadasf;
var i,k,l,m,s: integer;   
A: Array[1..150] of integer;
begin
Writeln('Сколько чисел будет в массиве?');
readln(k);
l:=9999;
m:=-1000;
For i:=1 to k do 
begin   
Writeln('Введите элемент массива №',i);   
Readln(A[i]);   
If A[i]>m then m:=A[i];   
If A[i]<l then l:=A[i]; 
end;
s:=m+l;
Writeln('Сумма минимального и максимального элемента массива: ',s);
end.