Здравствуйте. Задача такая: Программа вводит с клавиатуры 10 чисел. Нужно найти максимальное и минимальное числа.

for i:=1 to 10 do begin
readln(a);
if a > max then max:=a;
if a < min then min:=a;
end;

дельфинарий?) )
массив делай

гугли)