Помогите информатика срочно !!!!!Составить программу ПАСКАЛЬ(Если можно с описанием

program p1; var i,j,n,m,k:integer; s:longint; a:array[1..20,1..20]of integer; begin write('Введите размеры матрицы, разделив их пробелом: '); readln(n,m); writeln('Введите значения элементов по строкам, разделяя элементы строки'); writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln; for i:=1 to n do begin write('Строка ',i:2,': '); for j:=1 to m do read(a[i,j]); readln end; writeln; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln; s:=0; k:=a[1,1]; for i:=1 to n do for j:=1 to m do begin s:=s+a[i,j]; if a[i,j]>k then k:=a[i,j] end; writeln('Сумма=',s,', Максимум=',k); writeln('Для выхода нажмите Enter'); readln end.

Что определить-то?