Трудности с одномерным массивом(Pascal)

[adrenalin142]

Здравствуйте форумчане. Пожалуйста прошу помочь разобраться с ошибкой в программе.
Задание такое: функция получает одномерный массив и значение, далее возвращает номер позиции на которой находится значение в массиве.
Программа работает неправильно. В чем моя ошибка?
Текст программы:

program odn_massiv;
{$apptype console}
uses
SysUtils,windows;
const k=5;
type
index = 0..k-1;
vector = array[index] of integer;
var
i,m,b:integer;
a:vector;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
for i:=0 to k-1 do
begin
  write('a[',i,']=');
  readln(a[i]);
end;
readln(m);
write('ошибка');
for i:=0 to k-1 do
if m=a[i] then b:=i;
writeln(b);
readln;
end.

[Stilet]

функция получает

Ошибаешься. Функция тут отсутствует.

Программа работает неправильно.

Откуда такие выводы?

readln(m);
write('ошибка');

Зачем "ошибка" написал?

[adrenalin142]

Сообщение от Stilet

Ошибаешься. Функция тут отсутствует.

Откуда такие выводы?

Зачем "ошибка" написал?

1)Я знаю что функции нет, но так звучит задание.
2) Программа всегда выдает 'ошибка'
3) 'ошибка' вводится с целью показать что позиция в которой должно быть введенное нами значение отсутствует

ЗЫ: если удалить write('ошибка'); то приложение работает, но если неправильное введеное значение, то выдает нам 0.

[Stilet]

но так звучит задание.

Ну тогда твоя программа полностью не подходит как четкое решение.

Программа всегда выдает 'ошибка'

Вот и я спрашиваю - зачем ты там поставил вывод слова "ошибка"

'ошибка' вводится с целью показать что позиция в которой должно быть введенное нами значение отсутствует

Тогда как минимум так:

function aga(m:integer):Boolean;
var i:integer;
begin
for i:=0 to k-1 do
 if m=a[i] then begin write(i); aga:=true; exit;
aga:=false;
end;

и:

if not aga(m) then write('А вот нема черной кошки в темной комнате');

Тогда хоть на правду будет похоже.

[adrenalin142]

Stilet, спасибо