Паскаль. Строки

[Pascaler]

1: Дана текстовая строка, вывести на экран все цифры из этой текстовой строки. (например ab2cd41af546g - чтоб выводило 2 41 546)

uses crt;
var s1,s2:string;
     i:integer;
BEGIN
 clrscr;
 s1:='';
 s2:='';
 writeln('vvedite stroky!');
 readln(s1);
 for i:=1 to Length(s1) do
  if s1[i] in ['0'..'9'] then s2:=s2+s1[i];
 writeln(s2);
 readln;
END.

Надо чтобы выводило в столбик каждую цифру, а у меня выводит в одну строку.. Помогите исправить

[Stilet]

Примерно так:

 for i:=1 to Length(s1) do 
  if s1[i] in ['0'..'9'] then begin
   s2:=s2+s1[i];
  end else begin
   if s2<>'' then   writeln(s2);
   s2:='';
  end;

Не проверял

[Grag]

Долго не раздумывая, без оптимизации, получилось вот что (но работает, проверял).

Program Stroke;
uses crt;
var s1,s2:string;
     i:integer;
BEGIN
  clrscr;
  s1:='';
  s2:='';
  writeln('vvedite stroky!');
  readln(s1);
  for i:=1 to Length(s1) do
    if s1[i] in ['0'..'9']
      then s2:=s2+s1[i]
      else
        if s2<>'' then
          begin
            writeln(s2);
            s2:=''
          end;
  if s2<>'' then writeln(s2);
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
END.