Найти максимальный элемент массива X (10). Помогите написать программу в паскале…

var X: array [1… 10] of integer; a,s,i: integer; beginrandomize; write ('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2) '); readln (s); case s of 1: begin writeln ('Введите 10 элементов массива: '); for i: =1 to 10 do readln (X[i]); a: =X[1]; for i: =1 to 10 do if a < X[i] then a: =X[i]; writeln ('Максимальный элемент: ',a); end; 2: begin writeln ('Массив: '); for i: =1 to 10 do begin X[i]: =random (101); write (X[i]: 4); end; writeln; a: =X[1]; for i: =1 to 10 do if a < X[i] then a: =X[i]; writeln ('Максимальный элемент: ',a); end; end; end.