Pascal. Помогите пожалуйста) 1) Абитурьент сдает четыре экзамена. Задан проходной балл. Сообщить о результате приема в институт. 2) вычеркнуть в данной строке каждую к-ю букву.

Const n = 4;
var x, y, z: real;
  i: integer;
begin
  write(проходной балл = ); 
  readln(x);
  for i := 1 to n do begin
    write(оценка , i, = ); 
    readln(z);
    y := y + z;
  end;
  if y/n >= x then 
    writeln(поступил)
  else
    writeln(не поступил);
end.


// Вторая
var i, k: integer;
  a, b: string;
begin
  write(k = );
  readln(k);
  write(строка = );
  readln(a);
  for i := 1 to Length(a) do
    if i mod k > 0 then 
      b := b + a[i];
  writeln(b);
end.