Массивы и строки

Program pr4;
Var s1,s2,s3,s4:string;
    i,j:integer;
Begin
Writeln('Vedite stroky');
Readln(s1);
s1:=s1+' ';
For i:=1 to length(s1) do
    if (s1[i]>='0') and (s1[i]<='9') then
       s3:=s3+s1[i]
    else if s1[i]=' ' then
            begin
            s4:=s4+s2+s3+' ';
            s2:='';
            s3:='';
            end
         else
            s2:=s2+s1[i];
 
writeln('Preobrazovanaia stroka=',s4);
end.

 Program Zd1;
 const
    max = 100;
  type
    mas = array [0..max] of Longint;
 
  procedure VvodMas( var A : mas; n:integer );
    var
      i : Integer;
    begin
      for i := 1 to n do
      readln(A[i]);
    end;
    
 procedure SelectSort(var A : mas; n:integer);
    var
      i, j, m : Integer;
      x : Longint;
    begin
    
    for i := 1 to n - 1 do
        begin
        if A[i]<=0 then continue;
          m := i;
          x := A[i];
          for j := i + 1 to n do
          begin
          if A[j]<=0 then continue;
            if x > A[j] then
              begin
                m := j;
                x := A[j];
              end;
          end;
            A[m] := A[i];
            A[i] := x;
        end;
        
      for i := 1 to n - 1 do
        begin
        if A[i]>=0 then continue;
          m := i;
          x := A[i];
          for j := i + 1 to n do
          begin
          if A[j]>=0 then continue;
            if x < A[j] then
              begin
                m := j;
                x := A[j];
              end;
          end;
            A[m] := A[i];
            A[i] := x;
        end;
    end;
 
 var i,n:integer;
     B:mas;
 Begin
 writeln('Vedite kolvo eleventov');
 readln(n);
 VvodMas(B,n);
 SelectSort(B,n);
 for i:=1 to n do
 writeln(b[i]);
 end.