5.  если я правильно понял

      i - это просто переменная типа integer

      a - массив

      r - размер массива

for i:=1 to r do

begin

 if a[i] > c then

 begin

  c := a[i];

 end;

end;

      результат будет в переменной c!