Составить алгоритм и соответствующую ему программу для определения максимального элемента в таблице а[1..n]. определить величину этого элемента и его номер в таблице.произвести отладку и проверить работу программы для произвольно заданных элементов таблицы. хоть программу ! )

uses crt; varmax, i , n,k : integer; m: array [1..100] of integer; beginrandomize; max: = -99; readln (n); for i: =1 to n dom[i]: = random (30); for i: =1 to n doif m[i]> max then begin max: = m[i]; k: = i; end; for i: =1 to n dowrite (m[i],' '); writeln; writeln ('max = ',max,' nomer v table = ',k); readkey; end.