Помогите написать программу в Паскале ..... Дано трехзначное число х найти сумму его цифр, среднее арифметическое и записать число в обратном порядке.

Var
  m,n,n1,n2,n3,n4:integer;
begin
  Write(Введите трехзначное натуральное число: );
  Readln(n);
  n1:= n mod 10;
  n2:= (n mod 100) div 10;
  n3:= n div 100;
  m:=n1+n2+n3;
  Write(сумма цифр: ,m);
  Write(среднее арифметическое: ,m/3);
  m = 100*n1 + 10*n2 + n3;
  Writeln( в обратном порядке: ,m)
end.