Написать программу в паскале дан одномерный целочисленный массив с индексами от 0 до 10 найти максимум и минимум элементов массива

Решение в p.s. ввод массива с клавиатуры.

Var a: array[1..10] of integer; i,n,m: integer; begin m: =1001; writeln('введите массив'); for i: = 1 to 10 do       begin       read(a[i]);       if (a[i]< m)and(a[i] mod 2 = 0) then             begin             m: =a[i];             n: =i             end;       end; writeln('a[',n,'] = ',m); end.

program summa;

uses crt;

var i,s: integer;

begin

      clrscr;

      i: =10; s: =0;

      write('двухзначные числа кратные 5: ');  

      while(i< =50) do

            begin

                write(i,'   ');  

 

                  s: =s+i;  

 

                  i: =i+5;  

 

            end;  

 

    writeln;

 

    writeln('сумма 10 двухзначных чисел кратных 5: ',s);

      readkey;

 

  end.