Решение задачи №5 из главы 16

var
  s: string;
  i:integer;

begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
    for i:=1 to Length(s) do
    begin

      if (s[i]>='0')and(s[i]<='9') then
          write(s[i], ' ');
    end;

    readln();

end.

Вывод консоли

vvedite proizvolnuy stroku:
rew2@#$$#435tr353453t4er4
Vivodim 8 chisel:
24353534

type  // секция объявления типов
  myArr = array[1..8] of char; //  массив из 8 элементов символьного типа
var
  s: myArr; // объявляем переменную типа  myArr
  i,j:integer;
  str : string;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(str);
    for i:=1 to Length(str) do
     begin // обходим строку в цикле
      if (str[i]>='0') and (str[i]<='9') and (j <= 8) then
        begin
        j+=1;
        s[j]:=str[i];
        end;
     end;
    writeln('Vivodim 8 chisel: ');
  for i := 1 to high(s) do
    write(s[i]);
    readln();
end.  

Вывод консоли
2
435
353453
4
4

var
  arr:array[1..8] of string;
  i,j:integer;
  strinput,str:string;
  a:char;
  n:byte;
begin
   j:=1;
   i:=1;
   write('Vvedite stroku: ');
   readln(strinput);
   n:=length(strinput);
   while i <= n do begin
     a:=strinput[i];
     while (a>='0') and (a <= '9') do begin
       str:=str+a;
       i:=i + 1;
       a:=strinput[i];
     end;
     i:=i+1;
     if str <> '' then begin
       arr[j]:= str;
       j:=j + 1;
       str :='';
     end;
   end;
   for i:=1 to j-1  do
       writeln(arr[i]);
   readln();
end.