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

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

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 > tarray[i]
  then max:=tarray[i];//если встречаем элемент больше максимального - то он -новый максимальный 
write('Максимальный элемент - ', max);
end.