Полное название клавиши с которой удаляют символы расположенные справа от курсора

Как аву устоновить? а?

Клавиша называется delete

Program chet_nechet;   const n=20;   type mas=array[1..n] of integer;   var i,k,sum,sum2,sr: integer; a: mas;   begin  sum: =0;   sum2: =0;   k: =0;   write('массив: ');   for i: =1 to n do  begin  a[i]: =random(100);   write(a[i],' ');   if a[i] mod 2=0 then begin k: =k+1; sum2: =sum2+a[i]; end                  else sum: =sum+a[i];   end;   writeln();   writeln('сумма нечётных чисел=',sum);   write('среднее арифметическое четных чисел=',sum2/k: 0: 2);   end.  если нужно что-то объяснить, то

1. решение для "школьников"// pascalabc.net 3.0, сборка 1073 var   i,n: integer;   s: string; begin   write('введите свое имя: '); readln(s);   if s[1]='и' then begin       n: =length(s)-1;       s: =s[1];       for i: =1 to n do s: =s+'*'   end;   writeln('результат работы: ',s) end. тестовое решение: введите свое имя: игорь результат работы: и**** введите свое имя: сергей результат работы: сергей 2. решение, каким оно должно быть, но этому не учат // pascalabc.net 3.0, сборка 1073 begin   var s: =readstring('введите свое имя: ');   if s[1]='и' then s: =s[1]+stringofchar('*',length(s)-1);   writeln('результат работы: ',s) end.