Два игрока А и В бросают кубик N раз, суммируя результаты бросков. Напишите программу определяющую победителя после N бросков.

var  n, i, sum1, sum2, buf: integer; begin  writeln('Введите количество бросков');  readln(n);  sum1 := 0;  sum2 := 0;   i := 0;     for i := 1 to n do  begin    writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');    readln(buf);     sum1 := sum1 + buf;  end;      for i := 1 to n do   begin    writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');    readln(buf);    sum2 := sum2 + buf;  end;     if sum1 = sum2 then writeln('Ничья') else    if sum1 > sum2 then writeln('Победил человек по имени А') else     writeln('Победил человек по имени B');   end.  Как то так ...