男生多久刮一次胡子好:在pascal中，编一个’在20个数中，找出最大与最小的数’的程序，哪个网上有相关资料

以上二位，需要这样吗？
program maxmin;
var
a,i,min,max:integer;
begin
min:=30000;
max:=-30000;
for i:=1 to 20 do
begin
read(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('max=',max);
writeln('min=',min);
end.

var
I,J,Tmp: Integer;
Arr[0..19] of Integer;
begin
Randomize;
for I := 0 to 19 do
Arr[I] := Random(0);//初始化数组；
for I := 0 to 19 do
begin
for J := I + 1 to 19 do
begin
if Arr[I] > Arr[J] then
begin
Temp := Arr[I];
Arr[I] := Arr[J];
Arr[J] := Arr[I];
end;
end;
end;
Write;n('Max Num Is',Arr[19]);
Writeln('Min Num Is',Arr[0]);
end;

program fmn(input,output);
var
a:array[1..20]:integer;
m,n,i:integer;
for i:=1 to 20 do read(a[i]);
if a[1]>a[2] then
begin
m:=a[1];
n:=a[2]
end
else begin
m:=a[1];
n:=a[2]
end;
for i:=3 to 20 do begin
if a[k]>m then m:=a[k];
if a[k]<n then n:a[k]
end;
write('Max:',m,' ','Min:',n);
readln
end.