Одномерный массив - стек. Паскаль

[HailMe]

Здравствуйте. Суть задания - записать в файл текст из другого файла, но он должен быть в обратном порядке. Для этого использовать стек, размер его - 10. Нароботка:

var 
 a:array [1..10] of string; 
 t,g:text; 
 i,n,k,q,st:integer; 
 s,m:string; 
    
 procedure POP; 
  begin 
  write (g,a[q],' '); 
  a[q]:=''; 
  q:=q-1; 
   end; 
  
procedure PUSH (str:string); 
begin 
  q:=q+1; 
  a[q]:=str 
  end; 
    
 begin 
   assign (g,'g.txt'); 
 rewrite (g);  
 assign (t,'t.txt'); 
  reset (t); 
 
 m:=''; 
         
      while not EOF(t) do begin  
            readln (t,s); 
           k:=0; 
           n:=1; 
           i:=0; 
                   for n:=1 to length(s) do begin 
                    i:=n-k; {размер копирования} 
                   
                       if (s[n]=' ') or EOLn(t) then begin  {ищу слово,забиваю в ячейку} 
                       m:=copy (s,k,i); 
                       k:=n; {место точки} 
                       end; 
                               
                  if (m<>'') and (q<=10) then begin {если m не пусто, а стек не полон,то я его забиваю и м обнуляю} 
                  PUSH(m); 
                  m:=''; 
                 end; 
                  
                 if q=10 then begin 
                 for st:=1 to q do 
                 POP(); 
                 writeln (g); 
                 end; 
               
              end;             
end; 
 
   close (g); 
  close (t); 
   end.

Имеется пару ошибок, не могу найти их причину. Первое: последнее слово в строке не копируется в стек, хотя поставил условие конца строки.
Второе: если первая строка выходит в файл в обратном порядке, то вторая уже нет - программа в лоб не хочет видеть условий копирования слова, а забивает в стек по одной букве.

Заранее спасибо за помощь

[Serge_Bliznykov]

записать в файл текст из другого файла, но он должен быть в обратном порядке.

а давайте мы с Вами для начала определимся ЧТО должно быть в обратном порядке?!

например, пусть в исходном файле дан такой текст (три строчки, как видно):

Мама мыла раму мочалкой.
Спорт - это мир! Кто виноват?!
А Шура шарил в базе данных.

что должно быть в выходном файле?

[HailMe]

данных. базе в шарил Шура А
виноват?! Кто мир! это - Спорт
мочалкой. раму мыла Мама

Как-то так.

[HailMe]

Я пока такой порядок не пытался написать в программе, хотя-бы просто перевести порядок слов в предложении в обратный порядок, уже там начинаются вылеты.

[Serge_Bliznykov]

в вашем коде не всё чисто с пробелами (мало того, что пробел попадает внутрь слова, так ещё и при сохранении стека в файл Вы ещё пробелы добавляете)
но, в целом, работает:

const
  MaxStekSize = 100;
var
  a: array[1..MaxStekSize] of string;
  t, g: text;
  i, n, k, q, st: integer;
  s, m: string;

procedure POP;
begin
  write(g, a[q], ' ');
  a[q] := '';
  q := q - 1;
end;

procedure PUSH(str: string);
begin
  q := q + 1;
  a[q] := str
end;

begin
  assign(g, 'g_out.txt');
  rewrite(g);
  assign(t, 'g_in.txt');
  reset(t);

  m := '';

  while not EOF(t) do begin
    readln(t, s);
    if (Length(s)>0) and (s[Length(s)]<>' ') then s := s + ' ';
    k := 0;
    n := 1;
    i := 0;
    for n := 1 to length(s) do begin
      i := n - k; {размер копирования}

      if (s[n] = ' ') then begin {ищу слово,забиваю в ячейку}
        m := copy(s, k, i);
        k := n; {место точки}
      end;

      if (m <> '') and (q <= MaxStekSize) then begin {если m не пусто, а стек не полон,то я его забиваю и м обнуляю}
        PUSH(m);
        m := '';
      end;

      if q = MaxStekSize then begin
        for st := 1 to q do
          POP;
        writeln(g);
      end;

    end;
    {чтобы сохранить информацию о переводах строк запишем в стек перевод строки}
    PUSH(#13#10);
  end;

  while q>0 do POP;  {пока стек не пуст, тогда сохраним его в файл}

  close(g);
  close(t);
end.

[HailMe]

Спасибо, в целом да, работает, но не так правильно. По условию - в стеке должно быть 10 значений. Когда стоит 100 - всё отлично. Но когда 10, при тексте:
Медведь Иван напал на девочку. Девочка отбилась банкой с вареньем.
Студент взял билет. Билет был автобусный.
А как же борщ?

в файле получается:
вареньем. с банкой отбилась Девочка девочку. на напал Иван Медведь
как А
автобусный. был Билет билет. взял Студент


борщ? же