Дано 12 (или более) чисел в строку. Распечатать их в обратном порядке по три числа в строке — Pascal(Паскаль)

Program PascalGuru;

label 1;

var
  i: integer;
  s, sub: string;
  sc: integer;

  { -------------------------------------- }
begin
  write('Vvedite stroku:');
  readln(s);
  sc := 0;

1:
  for i := length(s) downto 1 do
    if (s[i] = ' ') then
    begin
      inc(sc);
      if sc > 3 then
      begin
        sc := 1;
        writeln;
      end;
      sub := copy(s, i + 1, length(s) - i);
      write(sub, ' ');
      delete(s, i, length(s) - i + 1);
      goto 1;
    end;
  { ************* }
  sub := s;
  writeln(sub);

  readln;

end.