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

Строки как одномерные массивы

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

var s: string;
    i: integer;
begin
  writeln('write rnd string:');
  readln(s);
  if (length(s) < 5) then
    write('string is too short');
  i:=5;
  while (i <= length(s)) do
    begin
      write(s[i], ' ');
      i := i + 5;
    end;
  readln();
end.

//write rnd string:
//sdasfasfasfcawwfasfff
//f s w f

//write rnd string:
//rrrd
//string is too short