Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. - Turbo Pascal

Формулировка задачи:

Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. Выдать эти символы

Решение задачи: «Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах.»

Листинг программы

uses crt;
var
  c : char;
  s : string;
  i, k : integer;
begin
  clrscr;
  s := '';  
  writeln('вводите символы окончание ввода "ESC"');
  while c <> #27 do
  begin
    s := s + c;
    c := readkey;
    write(c, ' ')    
  end;
  writeln('составлено слово: ', s);
  write('символы на четных местах: ');
  for i := 1 to length(s) do
    if i mod 2 = 0 then
    begin
      inc(k);
      write(s[i], ' ')
    end;
  writeln;
  writeln('количество символов на четных местах: ', k);
  repeat until keypressed
end.

Объяснение кода листинга программы

В начале объявляются все необходимые переменные: c (символ), s (строка), i (целое число), k (целое число).
Затем происходит очистка экрана с помощью функции clrscr.
Выводится сообщение для ввода символов, заканчивающееся на ESC.
Запускается цикл while, который продолжается до тех пор, пока введенный символ не будет равен #27.
Внутри цикла к строке s добавляется введенный символ c.
Считывается следующий введенный символ с помощью функции readkey.
Выводится введенный символ с пробелом после него.
Цикл while повторяется до тех пор, пока введенный символ не будет равен #27.
После окончания цикла выводится сообщение составлено слово:, а также строка s.
Выводится сообщение символы на четных местах:.
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий индекс символа четным числом.
Если это так, то увеличивается значение переменной k и выводится символ s[i] с пробелом.
По завершении цикла for выводится сообщение количество символов на четных местах:, а также значение переменной k.
Цикл while повторяется до тех пор, пока не будет нажата клавиша.
После окончания цикла выводится сообщение до свидания.