Решение задачи №2 из главы 16.Пользователь вводит произвольную строку, выведите на экран каждый пятый элемент

Задача № 2

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

program pascal_string2;
var i : integer;
    s : string;
begin
writeln('input string : ');
readln( s );// считываем строку
if( length( s ) < 5 ) then // если длинна меньше 5 завершаем работу 
   writeln('error : Input string again ')
else // если больше 5 то выполняем
begin
  for i := 1 to length( s ) do // обходим строку
  begin
    if ( ( i mod 5 ) = 0  ) then // определяем каждый 5 элемент
       writeln( ' symbol ', i , ' = ' ,s[i] ); // выводим
  end;
end;
readln(); 
end.