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

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

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