Вот я тут написал как это примерно выглядит, ты чуть доработаеш, потому что я совсем забыл паскаль, я его в прошлом году ешё в универе учил. Ну примерно так это должно быть program pr;
uses crt;
var
m:array[0..10] of integer;
min:integer;
procedure minn;
var
n:integer;
begin
n:=0;
min:=m[0];
for n:=0 to 9 do begin
if min>m[n] then
begin
min:=m[n];
end;
end;
end;
begin
clrscr;
m[0]:=12;
m[1]:=2;
m[2]:=12;
m[3]:=14;
m[4]:=17;
m[5]:=13;
m[6]:=16;
m[7]:=17;
m[8]:=18;
m[9]:=19;
minn;
writeln('cislo=>',min);
readkey;
end.
Также само и делаеш процедуру для максимального числа.
Если надо могу объяснить по подробней(просто ща я очень хочу спать).