ОЧЕНЬ СРОЧНО!!!Паскаль ABC
Вводится последовательность целых чисел N. Найдите наибольший элемент последовательности не содержащий нулей.
Буду очень благодарна за помощь

Не могли бы вы написать через подпрограмму?

var i,n,s,max: integer;k,h: string;beginmax:=0;writeln('Введите кол-во чисел');readln(n);for i:=1 to n dobeginreadln(s);Str(s,k);if pos('0',k)=0 then beginif s>max then max:=s;end;end;writeln(max);end.