Если длина слова больше 8 символов, то сформировать из него два слова: в одно записать последние 8 символов, а в другое — остальные, дополняя его до 8 символов знаками «%» — Pascal(Паскаль)

var
  s, s1, s2: string;

begin
  readln(s);
  if length(s) > 8 then begin
    s1 := copy(s, length(s) - 7, 8);
    delete(s, length(s) - 7, 8);
    while length(s) <> 8 do
      s := s + '%';
    s2 := s;
    writeln(s1);
    writeln(s2);
  end
  else writeln('мньше 8 символов');
end.