Перевести код из паскаля в турбо с++

const
  LoshadCount = 3;
 
var
  i, n, c, max: Integer;
  v: Real;
  s: array [1..LoshadCount] of Integer;
 
begin
  // Stavki
  n := 0;
  repeat
    Write ('Vibirite loshad (ot 1 do ', LoshadCount,'): ');
    ReadLn (n);
  until n in [1..LoshadCount];
 
  // Zaezd
  Randomize;
 
  for i := 1 to LoshadCount do
    s[i] := 30 + Random(15);
 
  // Finish
  max := s[1];
  for i := 2 to LoshadCount do
    if s[i] > max then max := s[i];
 
  c := 0;
  for i := 1 to LoshadCount do
    if s[i] = max then begin
      Inc(c);
      if i = n then n := 0; // esli viigral
    end;
  v := LoshadCount / c;
 
  // Resultat
  WriteLn;
  WriteLn ('----------------------------------');
  WriteLn ('           Srednaya');
  WriteLn (' Loshad    skorost,     Resultat');
  WriteLn ('           km/ch');
  WriteLn ('----------------------------------');
  for i := 1 to LoshadCount do begin
    Write (' ', i, s[i]:12);
    if s[i] = max then Write ('          POBEDITEL');
    WriteLn();
  end;
  WriteLn ('----------------------------------');
  WriteLn;
 
  if n = 0 then begin
    WriteLn ('VI VIIGRALI !!!');
    WriteLn ('Vash viigrish: ', v:4:2);
  end
  else
    WriteLn ('Vi proigrali :(');
 
  ReadLn;
end.