Среди введённых чисел отобрать чётные

var i, max, min, a: integer;
begin
min:=maxint; {изначально минимальному присваиваем максимальное значение}
for i:=1 to 10 do
    begin
    write(i,' число = '); readln(a);
    if(a mod 2=0)and(a<>0)and(a<min)then min:=a;
    if(a mod 2=0)and(a>max)then max:=a;
    end;
writeln('Максимальное: ', max);
writeln('Минимальное: ', min);
end.

1 ÷èñëî= 2
2 ÷èñëî= 4
3 ÷èñëî= 6
4 ÷èñëî= 8
5 ÷èñëî= 10
6 ÷èñëî= 12
7 ÷èñëî= 14
8 ÷èñëî= 16
9 ÷èñëî= 18
10 ÷èñëî= 20
Ìàêñèìàëüíîå: 20
Ìèíèìàëüíîå: 2
 
1 ÷èñëî= 1
2 ÷èñëî= 3
3 ÷èñëî= 5
4 ÷èñëî= 7
5 ÷èñëî= 9
6 ÷èñëî= 11
7 ÷èñëî= 13
8 ÷èñëî= 15
9 ÷èñëî= 17
10 ÷èñëî= 19
Ìàêñèìàëüíîå: 0
Ìèíèìàëüíîå: 2147483647

var i, max, min: integer;mas :array[1..10] of integer;
 
begin
for i:=1 to 10 do // етим цыклом заполняем массив чисел - mas
write(i,'число=');
здесь написать запись в елемент массива  -mas[i]  //к сожелению языка паскаль незнаю,знаю обьектное делфи из курса универа
 
 
for i:=1 to 10 do  //етим цыклом находим и записываем в макс и мин значение кот. кратное двум
   if(mas[i] mod 2=0) then  юю равно здесь булевское - жирное
begin
    min:=mas[i];
    max:=mas[i];
end;
 
for i:=1 to 10 do //цикл для поиска макси. и мин елемента
begin
  if(mas[i] mod 2=0) and (mas[i]>max) then max:=mas[i];
  if(mas[i] mod 2=0) and (mas[i]<min) then max:=min[i];
end;
 
writeln('Максимальное: ', max);
writeln('Минимальное: ', min);
end.

var i, max, min, a: integer;
begin
 
min:=maxint;  {изначально минимальному присваиваем максимальное значение в integer}
max:=-maxint; {изначально максимальному присваиваем минимальное значение в integer}
 
for i:=1 to 10 do
    begin
    write(i,' число = '); readln(a);
    if(a mod 2=0)and(a<>0)and(a<min)then min:=a;
    if(a mod 2=0)and(a<>0)and(a>max)then max:=a;
    end;
if(max=-maxint)and(min=maxint)then writeln(' Четных чисел нет');
if(max<>-maxint)then writeln(' Максимальное четное: ', max);
if(min<>maxint)then writeln(' Минимальное четное: ', min);
end.

var i, max, min, a: integer;
begin
 
min:=maxint;  {изначально минимальному присваиваем максимальное значение в integer}
max:=-maxint; {изначально максимальному присваиваем минимальное значение в integer}
 
for i:=1 to 10 do
    begin
    write(i,' число = '); readln(a);
    if(a mod 2=0)and(a<>0)and(a<min)then min:=a;
    if(a mod 2=0)and(a<>0)and(a>max)then max:=a;
    end;
if(max=-maxint)and(min=maxint)then writeln(' Четных чисел нет')
else if(min=max)then writeln('Минимальное равно максимальному, и равно ',max)
else begin
     writeln(' Максимальное четное: ', max);
     writeln(' Минимальное четное: ', min);
     end;
end.