Можешь изменить эту программу следующим образом: найти максимальную компоненту переменной х типа вектор

Заменить приведенный во вложении фрагмент на
  s:=a[1];
  for i:=2 to 5 do
    if a[i]>s then s:=a[i];
  Writeln('Максимум=',s);