Найти порядковый номер максимального элемента и записать его в первую строку файла, во 2-ю строку сам массив

var
  f, r: file of char;
  c: char;
  i, n,k: integer;
  max:char;
  x: array [1..1000] of char;
 
 
begin
  assign(f, 'd:\input.txt');
  assign(r, 'd:\output.txt');
  
  
  reset(f);
  i := 1;
  while not eof(f) do 
  begin
    read(f, c);
    x[i] := c;
    write(x[i], ' ');    
    inc(i);
    n := i;
  if x[i]>max then
begin
k:=i; 
max:=x[i];
end; 
  end;

var
  f: text;
  i, n, k: integer;
  max: integer;
  x: array [1..1000] of integer;
 
 
begin
  write('Введите размерность массива: ');
  readln(n);
  write('Введите ', n, ' элементов массива: ');
  
  for i := 1 to n do
    readln(x[i]);
  
  max := x[1];  
  k := 1;
  for i := 1 to n do
    if x[i] > max then
    begin
      k := i; 
      max := x[i];
    end; 
  writeln('Max: ', max, ', индекс: ', k );
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, k);
  for i := 1 to n do
    write(f, x[i], ' ');
  writeln(f);  
  close(f);
end.

var
  f, r: text;
  i, n, k: integer;
  max: integer;
  x: array [1..1000] of integer;
 
 
begin
  assign(r, 'input.txt');
  reset(r);
  i := 1;
  while not eof(r) do
  begin
    read(r, x[i]);
    inc(i);
  end;
  n := i;
  close(r);
  
  max := x[1];  
  k := 1;
  for i := 1 to n do
    if x[i] > max then
    begin
      k := i; 
      max := x[i];
    end; 
  writeln('Max: ', max, ', индекс: ', k );
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, k);
  for i := 1 to n do
    write(f, x[i], ' ');
  writeln(f);  
  close(f);
end.