Найти и напечатать максимальный элемент списка. Функцию max использовать нельзя

Var  
a, b: array[1..10] of integer;  
i, min, max, sum: integer;  
begin  
min := 10;  
for i := 1 to 10 do   begin    
write('Введите ',i,'-ый элемент первого массива ');
Readln(a[i]);    
write('Введите ',i,'-ый элемент второго массива ');
Readln(b[i]);  
if a[i] < min then min := a[i];    
if b[i] > max then max := b[i];  
end;  
for i := 1 to 10 do    
write(a[i], ' ');  
Writeln;  
for i := 1 to 10 do    
write(b[i], ' ');  
writeln;   
writeln('Минимальное первого массива ', min);   writeln('Максимальное первого массива ', max);  
sum := min + max;  
for i := 1 to 10 do    
if (i mod 2) = 0 then      
a[i] := sum else
b[i] := sum;  
for i := 1 to 10 do    
write(a[i], ' ');  
Writeln;  
for i := 1 to 10 do    
write(b[i], ' ');
end.

Интернет в России появился в 1990 году, тогда же был зарегистрирован и домен su.
  Обычно историю зарождения русскоязычной части Интернета (Рунета) описывают следующими основными вехами: 22 августа 1990 года – научная сеть Института атомной энергии и ИПК Минавтопрома впервые подключилась к Интернету, поэтому этот день считается днем зарождения русского Интернета.19 сентября 1990 года – первый домен Советского Союза .su был зарегистрирован в международной базе данных.7 апреля 1994 года - первый домен Российской Федерации .ru был зарегистрирован в международной базе данных.