Два игрока a и b бросают кубик и суммируют результаты бросков. победителем объявляется игрок, набравший первым объявленную сумму очков s. напишите программу, определяющую победителя

Var A,B:byte;
S,Sa,Sb:integer;
Begin
WriteLn('S = ');ReadLn(S);
Repeat
Write('A = ');ReadLn(A);
Sa:=Sa+A;
Write('B = ');ReadLn(B);
Sb:=Sb+B;
Until (Sa>=S)or(Sb>=S);
if (A>B) then WriteLn('Победил игрок A')
else WriteLn('Победил игрок B')
End.