Задача 2 Урок 23

Задача 2 Урок 23

Есть исходный код:

var s:string; i, n: Integer;
a: array[1..8] of char;
begin
writeln('Vvedite stroku');
readln(s);
n := 1;
while(n begin
for i:=1 to Length(s) do
if (s[i]>='0')and(s[i] begin
a[n]:=s[i];
inc(n);
end;
end;
for i:=low(a) to high(a) do
write(a[i],' '); // выводим массив
readln();
end.

Задача:

Определить, что делает эта программа (добавьте текстовое описание)
В ней есть лишние конструкции -- перепишите код оптимальным образом

Программа заполняет массив цифрами из введённой строки и выводит его на экран.

var s:string;  i, n: Integer;
  a:  array[1..8] of char;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 1;
 while(n<=8) do      // 1-8
 begin
   if (s[i]>='0')and(s[i]<='9') then
   begin
     a[n]:=s[i];
     write(a[n],' ');
     inc(n);
   end;
   i+=1;
 end;
 readln();
end.