Определить максимальный и минимальный элементы массива - Turbo Pascal

Const N = 10;
Var
  min,max,i : Byte;
  m : array[1..N] of Integer;
...
  max:=1; min:=1;
  For i:=2 to N do
  Begin
    If m[i]<m[min] then min:=i;
    If m[i]>m[max] then max:=i;
  End;
Writeln(min,',',max);
Writeln(m[min],',',m[max]);
...