[Yegor]

TAMBIK, вот написал:

function MsekToString(msek: integer): string;
var
  min, sek: string;
begin
  msek:= msek div 1000;
  min:= IntToStr(msek div 60);
  sek:= IntToStr(msek mod 60);
  if Length(min) = 1 then min:= '0' + min;
  if Length(sek) = 1 then sek:= '0' + sek;
  Result:= min + 'мин ' + sek + 'сек';
end;