Вводятся N целых случайных чисел. Отыскать разницу меж величайшим инаименьшим из

/PascalABC.NET
Var
n,i,s,max,min:integer;
begin
max:=-1000;
min:=1000;
write('Введите кол-во частей: ');
readln(n);
for i:=1 to n do begin
s:=random(2000)-1000;
write(s,' ');
if sgt;max then max:=s;
if slt;min then min:=s;
end;
writeln;
writeln('Наибольший элемент: ',max, ' Малый: ', min,' Разница меж элементами: ', max - min);
end.