1. Средства функционального программирования

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=ReadlnString('>');
  s.Batch(s.Length div 5).Skip(2).Take(1).Aggregate((c1,c2)->c1+c2).Println('')
end.

Тестовое решение
> retmutsike
ut

2. Еще один вариант (на слайсах)

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=ReadlnString('>');
  var m:=s.Length div 5;
  s[2*m+1:3*m+1].Println('')
end.

3. Стандартные средства Паскаля

var
  s:string;
  m:integer;

begin
  Write('>'); Readln(s);
  m:=s.Length div 5;
  Writeln(Copy(s,2*m+1,m))
end.