Найти минимальное и максимальное целое число

var
max,min,i:integer; a:array[1..10] of integer;
begin
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
max:=-32000;
min:=32000;
for i:=1 to 10 do begin
if (a[i]<min) then min:= a[i];
if (a[i]>max)  then max:=a[i]; end;
write('минимальное:',min);
writeln;
write ('максимальное: ',max);
 
 
end.

var
 s:string;
 min,max,i,j,k,n,p:longint;
begin
 readln(s);
 min:=MaxLongInt;
 max:=-MaxLongInt;
 while i<length(s) do
  begin
   inc(i);
  if s[i] in ['0'..'9'] then
   begin
    j:=i;
    while (s[j] in ['0'..'9']) and (j<length(s)) do inc(j);
    if not(s[j] in ['0'..'9']) then dec(j);
    val(Copy(s,i,j-i+1),n,k);
    inc(p);
    if s[i-1]='-' then n:=-n;
    if n<min then min:=n;
    if n>max then max:=n;
    i:=j+1;
  end;
 end;
if p=0 then writeln('0') else
 begin
  writeln('max=',max);
  writeln('min=',min);
 end;
end.