Задания по Pascal

[Hitman180392]

1. Дано предложение. Определить номер первого слова, содержащего числовую информацию.
2. Дан одномерный массив x[1...n]. Вставить заданное число a в середину массива.

[CMY_3]

var
  s,w : string;
  i,j : byte;
begin
  write('s = '); readln(s);
  s := s + ' ';
  w:=''; j:=0;
  while s<>'' do begin
    w := copy(s,1,pos(' ',s));
    delete(s,1,pos(' ',s));
    inc(j);
    for i:=1 to length(w) do if w[i] in [#48..#57] then begin
      writeln('Номер слова ',j);
      readln;
      exit;
    end;
  end;
  writeln('Номер слова 0');
  readln;
end.