Помогите, пожалуйста, написать программу в Паскале…

Program pr; uses crt; Var M: array[1… 10, 1… 15] of integer; i,j: integer; a: integer; BeginWriteln ('vvedite a'); readln (a); Writeln ('vvedite massiv'); for i: =1 to 10 do Begin for j: =1 to 15 do read (M[i,j]); Writeln; end; for i: =1 to 10 do for j: =1 to 15 do M[i,j]: =M[i,j]-a; for i: =1 to 10 do Begin for j: =1 to 15 do Write (M[i,j]: 5); Writeln; end; readln; end.