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.