Задача 2 Урок 16

Задача 2 Урок 16:

Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

var s: string;
    i, n: integer;
begin
  write('Введите произвольную строку: ');
  readln(s);
  writeln();
  n := length(s);
  if n < 5 then
   writeln('Ошибка')
  else
   for i := 1 to n do
    if i mod 5 = 0 then write(s[i], ' ');
  readln();
end.