Массивы (подготовка к олимпиаде по программированию)

Тема: Табличные величины. Однмерный массив.
Задача: Дан целочисленный массив А имеющий n элементов (n<=100) найти сумму элементов массива А и максимальный элемент.

program zadacha;

var a : array [1..100] of integer; { массив 100 элементов типа integer }
n,i,max,sum : integer;
begin
write('n=');
readln(n);
{ввод элементов массива}
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
{подсчёт суммы}
sum:=0;
for i:=1 to n do
sum:=sum+a[i];
{поиск максимального элемента}
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
{вывод результатов}
writeln('сумма=',sum);
writeln('максимальный элемент=',max);
readln;
end.