Pascal Нахождение максимального элемента в массиве A

[#Gromov]

Исходный код программы:

Var a: Array [1..100] of integer; //Описание переменных
    i, n, c, d, max:integer; 
Begin //Начало программы
  Writeln ('Введите размерность и границы!'); //Считывание размерности
  readln (n, c, d); 
  For i:=1 to n do //Инициализация массива
    a[i]:=random (100)-50;
  Max:=a[C]; //Присваивание максимальному значение a[d];
  For i:=С+1 to D do  //Поиск максимального
  if Max < a[i] then
  Max:=a[i];
  writeln ('Массив');
  For i:=1 to n do //Вывод массива
    write (a[i],' ');
  writeln ();
  writeln ('Максимальный элемент', Max); //Вывод максимального
end. //Конец