PASCAL Определить порядковый номер и значение максимального элемента массива n элементов

[Наталья18)]

В конце что=то не так((

const=5;
var 
 i,m,k:integer;
 mass: array[1..n] of integer;
begin
 for i:=1 to n do 
  begin
   readln(mass[i]);
    end;
writeln;
 repeat  
 writeln('Введите элемент массива');
 readln(m);
  for i:=1 to n do begin
   if m=mass[i]then
    begin
     mass[i]:=m;
     k:=i;
    end;
  end;
  if m<>mass[k] then
   writeln('x');
writeln(k);
until m=mass[i]          
end.

// не всегда останавливаетсЯ после нахождениЯ элемента;
// не всегда выдаЮт правильный номер элемента;
// вообще, выводит какой-то номер, если такого элемента в массиве нет
// объЯвлены лишние переменные

[type_Oleg]

Сообщение от Наталья18)

В конце что=то не так....
...
// не всегда останавливаетсЯ после нахождениЯ элемента;
// не всегда выдаЮт правильный номер элемента;
// вообще, выводит какой-то номер, если такого элемента в массиве нет
// объЯвлены лишние переменные

// Этот код читать невозможно.
Используйте теги для кода . И главное - отступы расставьте. А то ведь никому не охота копаться - к какому begin этот end ..

[Aleksandr H.]

const n=5;
var i,m,k:byte;
mass:array [1..n] of integer;
begin
 for i:=1 to n do
 begin
   write('MASS[',i,'] ? ');readln(mass[i]);
   if i = 1 then k := i
   else
   begin
    if mass[k]<mass[i] then k:=i;
   end;
 end;
 writeln('MAX ELEM = ',mass[k],' POSITION = ',k);
 readln;
end.