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

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

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

program u17z2;
var s: string;
    i,n: integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  if length(s)>=5 then
    for i:=1 to length(s) do
    begin
      if (i mod 5 = 0) then
        writeln(s[i]);
    end
  else
    writeln('owibka');
  readln();
end.