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

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

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

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

Вывод в консоли:

Введите произвольную строку: sdfhjfsy3467ydthgg
j 4 t 

Введите произвольную строку: fxhh
Ошибка