Все цифры, содержащиеся в самом длинном слове этого массива, заменить на символ «*»

var word : array[1..100] of string; i, n, max : integer;
begin
   repeat write('n = '); readln(n)
   until n > 0;
   max := 1;
   for i := 1 to n do begin
      write('word[', i, '] = '); readln(word[i]);
      if length(word[i]) > length(word[max]) then max := i
   end;
   for i := 1 to length(word[max]) do begin
      if (ord(word[max][i]) >= ord('0')) and (ord(word[max][i]) <= ord('9'))
      then begin
         delete(word[max], i, 1);
         insert('*', word[max], i)
      end
   end;
   writeln('Результат: ', word[max])
end.

var word: array[1..100] of string;
    n,i,p: longint;
    s: string;
begin
readln (n);  p:= -1;
for i:= 1 to n do
begin
readln (word[i]);
if length(word[i])>length(s) then  s:= word[i];
end;
for i:= 1 to length(s) do if s[i] in ['0'..'9'] then s[i]:= '*';
writeln (s);
end.