Помогите пожалуйста с Паскалем, срочно!
Последовательность целых чисел вводится с клавиатуры до нуля. Найдите среди них максимум и минимум и выведете на экран их сумму.

Написал вариант для несильных в программировании.program Nom;var a,min,max,sum:integer;begina:=1;while a<>0 dobeginReadln (a);if max = 0 then max:=a;if min = 0 then min:=a;if (a>max)and(a<>0) then max:=a;if (a<min)and(a<>0) then min:=a;end;sum:=min+max;writeln (sum);end.