Сделать программу в паскале ввести 10 чисел и из них найти минимум и максимум

var a: array[0… 9] of integer; i,min,max: integer; begin for i: =0 to 9 do readln (a[i]); min: =a[0]; for i: =0 to 9 do if (min>a[i]) then min: =a[i]; max: =a[0]; for i: =0 to 9 do if (max