Дан текст. найти самую длинную группу цифр и поменять ее с последней группой цифр — Pascal(Паскаль)

const  s  = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr.we_653_fgh';
  var i : Integer;
  pmax, lmax : Integer;
  pt, lt : Integer;
  ResultStr : string;
 
begin
  i := 1;
  lmax := 0;
  repeat
    if s[i] in ['0'..'9']
    then
      Begin
        lt := 1;
        while (i <= Length(s))
         do
          if s[i+lt] in ['0'..'9']
          then
            Inc(lt)
          else
            Break;
        pt := i;
        if lt > lmax
        then
          begin
            lmax := lt;
            pmax := i;
          end;
        i  := i + lt;
      end;
    Inc(i);
  until i > Length(s);
 
  ResultStr := Copy(s, 1, pmax - 1) + Copy(s, pt, lt) +
               Copy(s, pmax + lmax, pt - pmax - lmax) + Copy(s, pmax, lmax) +
               Copy(s, pt + lt, Length(s) - pt - lt + 1);
  Writeln(s);
  Writeln(ResultStr);
  Readln;
end.