Инвертировать строку

[Nitriyc]

Задание:Преобразовать строку, изменив порядок следования слов в строке на обратный. Надо написать программу с использованием подпрограмм и без использования COPY. Заранее спасибо.!!!

Программа:

program str;
var a:array[1..100] of string;
    b, s, r:string;
    n, k, j, i:byte;
begin
     writeln('vvedite stroky');
     readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
begin
    r:=copy(s,i,1);
    if   r=' '
      then
                          begin k:=k+1;
                                a[k]:=b;
                                b:='';
                          end
       else b:=b+r;

end;
r:=copy(s,n,1);
if r<>' ' then   begin k:=k+1; a[k]:=b;end;
s:='';
for i:=k downto 1 do s:=s+a[i]+' ';
writeln (s);
end.

[ОДИНОЧЕСТВО В СЕТИ]

var s,sub:stRing;
i,n:integer;
a:array[1..100] of string;
q:set of char;
begin
readln(s);
i:=0;n:=0;
q:=[' ',',' , '-', '!', '?', ';',':','.'];
repeat
inc(i);
if s[i] in q then begin
inc(n);
a[n]:=sub;
sub:='';
end
else if not (s[i] in q) then sub:=sub+s[i];
until(i=length(s));
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
s:='';
for i:=n downto 1 do
s:=s+a[i]+' ';
writeln('new string:',s);
readln;
end.

[Nitriyc]

Этот код у меня не работает

[Stilet]

Этот код у меня не работает

Да код с ошибками.
Между прочим была такая уже задача.

[ОДИНОЧЕСТВО В СЕТИ]

Этот код у меня не работает

ну конечно вставить одну букву и описать еще 1 переменную на которые паскаль сам указывает это ж труд великий неподъемный для среднестатистического студента