Задача 4 Урок 17

Урок 17

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.

type ar = array[1..8] of char;

var s: string;
    a: ar;

function f1(s1:string): ar;
  var i1, t1: integer;
  a1: ar;

begin
  t1 := 0;
  for i1 := 1 to length(s) do
  if (s1[i1] >= '0') and (s1[i1] <= '9') and (t1 <=8) then
  begin
   inc(t1);
   a1[t1] := s1[i1];
  end;
  result := a1;
end;

procedure p1(a1: ar);
  var i1: integer;

begin
  for i1 := low(a1) to high(a1) do
    write(a1[i1], ' ');
end;

begin
  writeln('Введите строку');
  readln(s);
  a := f1(s);
  p1(a);
  readln();
end.

КОНСОЛЬ

Введите строку
rthr356jkb56kjbkjb56kjlk456
3 5 6 5 6 5 6 4