Написать программу которая будет вводить на экран наибольший элемент любого целочисленного

Если паскаль, то - 

const n:=100; //в массиве пусть будет 100 частей
var tarray:array[1..n] of integer;
max:integer;
i:=byte;
begin
здесь наполнение массива
max:=tarray[1]; //размышляем что максимум - это первый элемент
for i:=1 to n do 
 if max gt; tarray[i]
  then max:=tarray[i];//если встречаем элемент больше наибольшего - то он -новый наибольший 
write('Наибольший элемент - ', max);
end.