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

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