Определить процедуру p(n, max, min), n — натуральное число, в теле которой вводится последовательность вещественных чисел x[1], x[2], x[n] и выходные параметры max и min равны соответственно наибольшему и наименьшему членам этой последовательности — Pascal(Паскаль)

uses crt;
procedure p(n:integer; var min,max:real);
var i:integer;
    x:real;
begin
readln(min);
max:=min;
for i:=2 to n do
 begin
  readln(x);
  if x>max then max:=x
  else if x<min then min:=x;
 end;
end;
var n:integer;
    mx,mn:real;
begin
clrscr;
write('Введите N=');
readln(n);
writeln('Введите ',n,' вещественных чисел:');
p(n,mn,mx);
writeln('Min=',mn:0:2,' Max=',mx:0:2);
readln
end.