Заменить найденное число в исходной строке на выражение вида ’MM минут SS секунд’

const cf=['0'..'9'];
var s,s1,smn,ssc,s2:string;
    i,j,n:byte;
    sm,sc,mn,k:integer;
    
begin
writeln('Введите предложение, содержащее в том числе числа от 1 до 3599');
read(s);
s1:='';
n:=length(s);
i:=n;
while (i>=1)and(s1='') do
if (s[i] in cf)and((i=n)or not (s[i+1] in cf))then
 begin
  j:=i;
  while(j>=1)and(s[j] in cf) do
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
 end
else i:=i-1;
val(s1,sm,k);
writeln('Последнее число=',sm);
sc:=sm mod 60;
mn:=sm div 60;
str(mn,smn);
str(sc,ssc);
case mn mod 10 of
0,5..9:smn:=smn+' минут';
1:smn:=smn+' минута';
2..4:smn:=smn+' минуты';
end;
case sc mod 10 of
0,5..9:ssc:=ssc+' секунд';
1:ssc:=ssc+' секунда';
2..4:ssc:=ssc+' секунды';
end;
s2:=' '+smn+' '+ssc+' ';
delete(s,j+1,length(s1));
insert(s2,s,j+1);
write(s);
End.

uses crt;
const cf=['0'..'9'];
var s,s1,smn,ssc,s2:string;
    i,j,n:byte;
    sm,sc,mn,k:integer;
begin
writeln('Введите предложение, содержащее в том числе числа от 1 до 5000');
read(s);
s1:='';
n:=length(s);
i:=1;
while (i<=n)and(s1='') do
if (s[i] in cf)and((i=1)or not (s[i-1] in cf))then
 begin
  j:=i;
  while(j<=n)and(s[j] in cf) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
 end
else i:=i+1;
val(s1,sm,k);
writeln('Первое число=',sm);
sc:=sm mod 60;
mn:=sm div 60;
str(mn,smn);
str(sc,ssc);
case mn mod 10 of
0,5..9:smn:=smn+' минут';
1:smn:=smn+' минута';
2..4:smn:=smn+' минуты';
end;
case sc mod 10 of
0,5..9:ssc:=ssc+' секунд';
1:ssc:=ssc+' секунда';
2..4:ssc:=ssc+' секунды';
end;
s2:=' '+smn+' '+ssc+' ';
delete(s,j-length(s1),length(s1));
insert(s2,s,j-length(s1));
write(s);
End.