Ввести массив А(N), N=7. Определите порядковый номер элемента, значение которого равно 49. Поменяйте местами элемент, значение которого равно 49, и первый элемент массива. Полученные результаты выведите на экран

const n=7; var a:array [1..n] of integer; i,k,buf:integer; begin for i:=1 to n do begin write ('A[',i,'] = ');readln(a[i]); if a[i]=49 then k:=i;  end; writeln ('Before:'); for i:=1 to n do write(a[i],' '); writeln; writeln ('Index: ',k):  buf:=a[1]; a[1]:=a[k]; a[k]:=buf; writeln ('After: '); for i:=1 to n do write (a[i],' '); readln; end.