Нахождение MIN значения массива

uses crt;
var i,m,max,min:integer;
a: array[0..10] of integer;
begin
  writeln('Введите размер массива: ');readln(m);
  for i:= 0 to m do
    begin
      writeln('Введите значение ',i,' эллемента массива: ');
      readln(a[i]);
    end;
    clrscr();
  for i:= 0 to m do
   writeln('Значенеи ', i, ' эллемента массива: ', a[i]);
    max := 0; 
     min := 0;  
      for i:= 0 to m do
      begin
       if max < a[i] then
       max := a[i];  
      end;
      
      for i := 0 to m do
      begin
        if min > a[i] then
        min := a[i];
      end;
    writeln('MAX: ', max);
    writeln('MIN: ', min);

uses crt;
var i,m,max,min:integer;
a: array[1..100] of integer;
begin
  writeln('ââåäèòå ðàçìåð ìàññèâà(<100): ');readln(m);
  for i:= 1 to m do
    begin
      writeln('ââåäèòå  ',i,' ýëåìåíò ìàññèâà: ');
      readln(a[i]);
    end;
    clrscr();
  for i:= 1 to m do
      write(a[i],' ');
      writeln;
    max := -MaxInt;
     min := MaxInt;
      for i:= 1 to m do
      begin
           if max < a[i] then max := a[i];
           if min > a[i] then min := a[i];
      end;
    writeln('MAX: ', max);
    writeln('MIN: ', min);
  end.