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

var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
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.     

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.