Паскаль 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.