Удвоить наибольший элемент массива Х(м) — Pascal(Паскаль)

uses crt;

var
  max, i, size, k: integer;
  x: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(x[i]);
  end;
  max := x[1];
  FOR i := 2 TO size do
  begin
    IF x[i] > max THEN
    begin
      max := x[i];
      k := i;
    end;
  end;
  x[k] := max * 2;
  writeln('Массив с удвоенным максимальным элементом');
  FOR i := 1 TO size do
  begin
    writeln(x[i]);
  end;

end.