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

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

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

Решение:

program u17z04;
var s:string;
  i,j,k,n:integer;
  c: array [1..8] of char;
begin
  writeln('vvedite stroku:');
  readln(s);
  n:=8;
  k:=0;
  for i:=1 to 8 do
  begin
    for j:=k to length(s) do
    begin
      if (s[j]>='0')and(s[j]<='9') then
      begin
        c[i]:=s[j];
        k:=j+1;
        break;
      end;
    end;
    write(c[i],'|');
  end;
  readln();
end. 

Консоль:

vvedite stroku:
pr1ve+m1r123po4emu22<23
1|1|1|2|3|4|2|2|