Из Pascal не работает в Delphi

[dex92]

Всем доброго времени суток.

Условие задачи:
Написать программу, которая переворачивает слова в предложении, сохраняя неизменным их порядок.

Код в задачи для Паскаля:

Program zsv;
uses crt;
var a,slovo,predl:string;
    i,la:integer;

{-------------------------------------------------}
Procedure INVERS(s:string);
var i,ls:integer;
    j:string;
begin
 ls:=length(s);
 for i:=1 to trunc(ls/2) do
  begin
   j[1]:=s[i]; s[i]:=s[ls+1-i]; s[ls+1-i]:=j[1];
  end;
 predl:=predl+s+' ';
end;
{-------------------------------------------------}

begin
 clrscr;
 writeln('Введите предложение: ');
 readln(a);
 la:=length(a);
  for i:=1 to la do
   begin
    if a[i]<>' ' then slovo:=slovo+a[i];
    if (a[i]=' ') or (i=la) then
                               begin
                                invers(slovo);
                                slovo:='';
                               end;
   end;
  writeln(predl);
  readln;
end.

(Переделать под Дельфи не могу, т.к. сейчас словил вирус...)

Программа запускалась, но как только вводил предложение, выскакивала ошибка:
Access violation at address 00450834

Далее красным цветов выделялась эта строка:
j[1]:=s[i]; s[i]:=s[ls+1-i]; s[ls+1-i]:=j[1];

Если написал в колонку, то так:
j[1]:=s[i];
s[i]:=s[ls+1-i];
s[ls+1-i]:=j[1];

Искал причину ошибки, дошел до:

Если в вашей проблемной строке есть скобочки типа [], то у вас есть хороший довод к проверке допустимости выражения в [].

Источник: gunsmoker.blogspot.com/2009/05/access-violation.html

Как заного переделать эту задачу не знаю... Выкручиваюсь только вышенаписанным готовым решением.

Заранее спасибо за любую помощь.

[eoln]

Сообщение от dex92

Procedure INVERS(s:string);
var i,ls:integer;
    j:string;
begin
 ls:=length(s);
 for i:=1 to trunc(ls/2) do
  begin
   j[1]:=s[i]; s[i]:=s[ls+1-i]; s[ls+1-i]:=j[1];
  end;
 predl:=predl+s+' ';
end;

Строка j - пустая, в неё нет символов. Попытка обратиться к несуществующему символу вызывает ошибку. Поэтому в начале надо установить длину строки

 ...
 SetLength(j, 1);
 for i:=1 to trunc(ls/2) do
 ...

Или писать просто

   j:=s[i];
    s[i]:=s[ls+1-i];
     s[ls+1-i]:=j[1];

Можно использовать тип char

[Z1000000]

Какой то бессмысленно хитрый алгоритм переворачивания слова.
Вот тебе обычный перевертыш,

Program zsv;
uses crt;
var a,slovo,predl:string;
    i,la:integer;

{-------------------------------------------------}
Procedure INVERS(s:string);
var i,ls:integer;
    j:string;
begin
 ls:=length(s);
 j:='';
 for i := ls downto 1 do j:= j+s[i];
 predl:=predl+j+' ';
end;
{-------------------------------------------------}

begin
 clrscr;
 writeln('Введите предложение: ');
 readln(a);
 la:=length(a);
 slovo := '';
 predl := '';
  for i:=1 to la do
   begin
    if a[i]<>' ' then slovo:=slovo+a[i];
    if (a[i]=' ') or (i=la) then
                               begin
                                invers(slovo);
                                slovo:='';
                               end;
   end;
  writeln(predl);
  readln;
end.