паскаль написать прогу. анна и борис играют в забаву загадай число.

Вот, поначалу ввести числа Анны и Бориса, а позже  кол-во бросков =)

var x, a, b, k, i, wa, wb: integer;
begin
     readln(a, b);
     readln(k);
     for i := 1 to k do
     begin
          x := random(5) + 1;
          writeln(x);
          if ((abs(a - x) gt; abs(b - x))) then wa := wa + 1;
          if ((абс(a - x) lt; абс(b - x))) then wb := wb + 1;
     end;
     if (wa gt; wb) then writeln('Ann win!')
        else
            if (wb gt; wa) then writeln('Boris win!')
               else
                   writeln('No win;)');
     writeln(wa, ' - ', wb);
end.