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

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

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

var s: string;
    i: integer;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  for i:=1 to length(s) do
  begin
    if length(s) < 5 then
      begin
        writeln('Error');
        break;
      end
    else
      if (i mod 5 = 0) then
        write(s[i],' ');
  end;

  readln();
end.