Чему будут равны значения переменных после завершения фрагмента программы?

k:=1; 
s:=x[1]; 
for i:=1 to n do
    if (s<х[i])
    then begin
           s:=х[i];
           k:=i
         end;?

program Project1;
var
  x: array [1..10] of integer; {Переменная для хранения массива}
  i: integer; {Вспомогательная переменная для организации циклов}
  s: integer; {Переменная для хранения значения едлемента с максимальным значением}
  k: integer; {переменная для хранения индекса максимального элемента}
begin
  for i:= 1 to 10 do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(x[i]);
    end;
  k:= 1;     {Начальные установки для переменных}
  s:= x[1];
  for i:= 1 to 10 do
    if (s < x[i]) then {Условие выбора элементов}
      begin
        s:= x[i];
        k:= i    {Нахождение индекса элемента с максимальным значением}
      end;
  writeln('s = ',s,'; k = ',k);
  Readln;
end.