массивы

[1Dima]

Пожалуйста помогите с задачкой, ети символы...

Написати програму яка вводитьт з клавіатури 10 символів, і визначає індекси(номери) елементів масиву, значення таких символів.Якщо таких елементів у масиві немає то вивиести відповідне повідомлення.

[1Dima]

вот скрипт задачки но нужно примутить строчку вывода когда такого елемента нет!!
program sumvolu;

{$APPTYPE CONSOLE}

uses
SysUtils;

Const n=10;
Var a:array [1..n] of char;
i:integer;
x:char;
begin
writeln ('wvedit elementu(sumvoly) masuvy: ');
for i:=1 to n do
begin
write ('a[',i,']=');
readln (a[i]);
end;
write (' wvedit zsumvol dlya poshyky: ');
readln (x);
for i:=1 to n do
if (a[i])=x then
writeln('na ' ,i,' misci masuvy mistutsya element');
readln
end.