Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль !!!!!!!!!!!!!!!!!!!!!!!

Program z1;  Var n,d,s,l: integer; Begin  write('Введите число = '); readln(n);  l:= 1;  s:= 0;  while n > 0 do  begin    d:=n mod 10;    if (d = 7) then d:=8;    d:= d * l;    s:= s + d;    l:= l * 10;    n:= n div 10;  end;  writeln(s);End.