[lmikle]

Ну, типа:

Код:

var
  // Результаты 1-3 места
  AResults : Array [1..3] Of TDateTime;

function CheckResults(I, J : Integer; Medal : String) : String;
const
   cMsg = 'ВОТ ТАК БОРЬБА ШЛА ЗА %s МЕДАЛЬ';
begin
  Result := '';
  If MilliSecondsBetween(AResults[i],AResults[J]) < 1000 Then
    Result := Format(cMsg,[Medal]);
end;

Использование:

Код:

WriteLn(CheckResults(1,2,'ЗОЛОТУЮ'));
WriteLn(CheckResults(2,3,'СЕРЕБРЯННУЮ'));