Задача по Turbo Pascal

Program FindMaxElement;

const
SIZE = 30;

var
A: array[1..SIZE] of Integer;
i, maxElement: Integer;

begin
{ Заполняем массив А случайными числами }
Randomize;
for i := 1 to SIZE do
A[i] := Random(100); { Можно заменить на любой другой способ заполнения массива }

{ Находим наибольший элемент }
maxElement := A[1]; { Предполагаем, что первый элемент наибольший }
for i := 2 to SIZE do
begin
if A[i] > maxElement then
maxElement := A[i];
end;

{ Выводим исходный массив и наибольший элемент }
writeln('Исходный массив A:');
for i := 1 to SIZE do
write(A[i], ' ');

writeln;
writeln('Наибольший элемент массива: ', maxElement);

readln;
end.

вывод на экран можно сделать при вводе очередного сл. числа

Вопрос в том, что означает слово "дан" - ибо он может быть дан как константа (тогда где сам массив?), может быть введен вручную с клавиатуры и может быть сгенерирован автоматически при помощи генератора случайных чисел.

Итак, массив вводится вручную с клавиатуры (заполняется):

 Program P1;  

uses crt;  

const n=30;  

type mas=array [1..n] of real;  

var A: mas;  

    i: byte;  

    max: real;  

begin  

clrscr;  

writeln ('Введите с клавиатуры массив (элементы массива, только числа), после ввода каждого из элементов массива (числа) нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');  

for i:=1 to n do begin  

    write ('Введите ', i, '-й элемент массива: ');  

    readln (A[i]);  

    end;  

max:=A[1];  

write ('Вы ввели массив:');  

for i:=1 to n do write (' ', A[i]);  

writeln (' ');  

for i:=1 to n do if A[i]>max then max:=A[i];  

writeln ('Наибольший элемент этого массива: ', max);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

2-ой вариант (здесь массив генерируется случайными числами):

 Program P1;  

uses crt;  

const n=30;  

type mas=array [1..n] of byte;  

var A: mas;  

    i, max: byte;  

begin  

clrscr;  

randomize;  

for i:=1 to n do A[i]:=random (101);  

max:=A[1];  

write ('Был сгенерирован массив:');  

for i:=1 to n do write (' ', A[i]);  

writeln (' ');  

for i:=1 to n do if A[i]>max then max:=A[i];  

writeln ('Наибольший элемент этого массива: ', max);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

А что подсказывать-то? Массив объявляется как array, работа с его элементами - в цикле.