Одномерные массивы

[Кирилл17]

дан массив х(20).
найти в нем заданный элемент и заменить его значение на другое, запрашиваемое после обнаружения заданного элемента. Если элемент не обнаружен, запрос не производить, а сообщить о неудачной попытке и предложить повторить поиск другого элемента или выйти из программы.

[Кирилл17]

подскажите как решать или хоть блок схему как составить. я уже месяц парюсь - никто не может помочь

[Sergeevich]

Program mas;
var
x:array[1..20] of integer;
n,i,y,z:integer;
begin
n:=20;
write('Введите элементы массива');
for i:=1 to n do readln(x[i]);
for i:=1 to n do write(x[i],' ');
write('Введите число которое нужно найти в массиве');
readln(y);
for i:=1 to n do begin
if y=x[i] then begin
write('Введите число замены');
readln(z);
end;
else write('Запрашиваемое число в массиве не найдено');
end;
for i:=1 to n do write(x[i],' ');
end.

Надеюсь это как-нибудь поможет