Выделить из строки и записать по правилам русского языка количество минут и секунд

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 до 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;
var s1,s2,s3,smin,ssec: string;
    c,min,sec,i: integer;
begin
write ('s='); readln (s1);
i:=length(s1);
s2:='';
while not (s1[i] in ['0'..'9']) do
      dec(i);
while s1[i] in ['0'..'9'] do
      begin
      s2:=s1[i]+s2;
      dec(i);
      end;
delete (s1,i+1,length(s2));
c:=strtoint (s2);
min:=c div 60;
sec:=c-(min*60);
if (min>=10) and (min<=19) then smin:=' минут ' else
   case min mod 10 of
   1:       smin:=' минута ';
   2..4:    smin:=' минуты ';
   5..9,0:  smin:=' минут ';
   end;
if (sec>=10) and (sec<=19) then ssec:=' секунд ' else
   case sec mod 10 of
   1:       ssec:=' секунда ';
   2..4:    ssec:=' секунды ';
   5..9,0:  ssec:=' секунд ';
   end;
s3:=inttostr(min)+smin+inttostr(sec)+ssec;
insert(s3,s1,i+1);
write (s1);
end.