Заполните массив 10 на 10 значения выражения m[a,b]=sin(a)+b

Var
a,b:integer;
m:array [1..10,1..10] of real;
begin
for a:=1 to 10 do begin
for b:=1 to 10 do begin 
m[a,b]:=sin(a)+b; 
write('m[a,b]:7:2);end;
end;
writeln;
end.