Найти индекс заданного элемента в одномерном массиве

Program zadanie;
Const n=10;
Type mas=array[1..n] of integer;
var a:mas;
i,m,k,j,l,d,g,v:integer;
Procedure random_mas(var a:mas);
var i:integer;
begin
for i:=1 to n do
a[i]:=random(10);
end;
Procedure print_mas(a:mas);
var i:integer;
begin
for i:=1 to n do
write(a[i]:3);
end;
Function index(a:mas):integer; {процедура находит индексы}
var i:integer;
f:boolean;
begin
for i:=1 to n do 
if a[i]=m then  writeln(i);  f:=false;
end;
 Procedure deleting(var a:mas; k:integer);{процедура удаляет}
 var i,j,l:integer;
 begin
  l := n;
   i := 1;
    while i <= l do
        if a[i] = k then begin
            for j := i to l - 1 do
                a[j] := a[j+1];
            l := l - 1
        end
        else
            i := i + 1;
 
    for i:= 1 to l do
        write(a[i]:4); end;
 
begin
Writeln('Введите цифру,индексы которых хотите узнать');
Readln(m);
random_mas(a);
print_mas(a); writeln;
m:=index(a);
Writeln('Введите какой элемент удалить');
readln(k);
writeln('новый массив:');
deleting(a,k); 
readln;
end.