Смоделируйте последовательность из 10 бросков игральной кости с гранями от 1 до 6 очков. подсчитайте сумму выпавших очков. паскаль авс датчик случайных чисел

var k,i,f:integer;
begin;
randomize;
for i:=1 to 10 do
 begin;
  k:=random(1,6);
  f:=f+k;
  writeln(i,' бросок приносит ',k,' . Текущая  сумма :',f);
 end;
writeln('Финальная сумма :',f);
end.

//Не "Датчик случайных чисел", a генератор певдослучайных чисел