Написать программу на Pascal — В одномерном массиве целых чисел…

const n=20; var a: array[1… n] of integer; i, k: integer; begin randomize; writeln ('Исходный массив: '); for i: =1 to n do begin a[i]: =random (51); write (a[i], '); end; writeln; write ('k='); readln (k); if (k > n) or (k < 1) then begin writeln ('элемента с таким индексом нет'); readln; Exit; end; for i: =k to n — 1 do a[i]: =a[i+1]; a[n]: =0; writeln ('Измененный массив: '); for i: =1 to n — 1 do write (a[i], '); readln; writeln; end.