Нужна программа на паскале нужно вводить последовательность с клавиатуры( конец ввода 0) с while, найти порядковый номер первого из чисел с максимальным значением т.е например на ввод 6 5 9 7 9 0 вывод 3 вроде легко, но никак не могу написать, чтобы корректно работало

var a,m,k,p:integer;

begin

read(a);

m:=a;

k:=1;

p:=1;

while a<>0 do

begin

if a>m then

begin

m:=a;

p:=k

end;

k:=k+1;

read (a)

end;

writeln (p)

end.

Принципы работы :

Работа датчика движения основана на анализе волн различных типов (акустических, оптических или радиоволн), поступающих на датчик из окружающей среды. В зависимости от типа используемого излучения датчики движения делятся на:

инфракрасные,

ультразвуковые,

фотоэлектрические, в которых применяется видимый свет,

микроволновые,

томографические, где используются радиоволны.

В зависимости от того, излучает ли сенсор сам эти волны и анализирует их после отражения или только получает волны извне, датчики делятся на:

активные;

пассивные;

комбинированные, в таких датчиках одна часть датчика посылает волны, а удалённая от неё вторая часть получает их.

Большинство существующих датчиков движения представляет собой некоторую комбинацию физических принципов работы, причём датчики одного типа волн, как правило, используют один механизм для их создания и обработки.

Наиболее распространенные датчики:

пассивные инфракрасные датчики (PIR), самые доступные и распространенные датчики движения в принципе[2], инфракрасные датчики составляют около 50 % применяемых по всему миру сенсоров движения[3];

активные ультразвуковые, микроволновые и томографические датчики;

комбинированные фотоэлектрические и инфракрасные датчики.

Каждый принцип имеет свои недостатки, иногда допуская ложные тревоги и несрабатывания в нужных случаях. Чтобы снизить вероятность ложного срабатывания, датчики иногда объединяют две технологии в одном устройстве (например, инфракрасная и ультразвуковая). Но это, в свою очередь, повышает уязвимость датчика, поскольку он становится менее надёжным и может в результате не сработать, даже когда должен.

Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных

begin // начало программы 
write ('y = x*b ');  
read(x,b);      // ввод переменной x,b

if x > 0   // проверка, х больше от 0?
then   
y := y * b       // если да, то исполняется это
else               
if x = 0 then   //если нет, то это(тут опять же проверка, х равно 0?)
y := 0             // если да то "y" присваивается 0
else
y := abs(x);    // если нет то "y" присваивается значение модуль "х"

writeln ('y = ', y);  // выводятся значения,

end. // завершение программы