Ошибка в программе

[larin1974]

Всем привет, тут писал одну программку в паскале она работает на ура, но при переносе в делфи возникает ошибка

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
s:string;
r:string;
used:array[1..10]of boolean;
m:integer;
procedure recurs(hi:integer);
var
i:integer;
begin
if hi>m then
writeln(r)
else begin
for i:=1 to m do begin
if not used[i] then begin
r[hi]:=s[i];
used[i]:=true;
recurs(hi+1);
used[i]:=false;
end;
end;
end;
end;
var

i:integer;
begin
readln(s);
m:=length(s);
r[0]:=chr(m);
for i:=1 to m do
used[i]:=false;
recurs(1);
end.

r[0]:=chr(m);

в этом месте возникает ошибка[Error]

Project1.dpr(36): Element 0 inaccessible - use 'Length' or 'SetLength'

[Serebro]

В Pascal-е работает, но правильно ли? Что такое r - тип string или массив?

[larin1974]

В паскале работает все правильно, проверял.
r:string;

[Serebro]

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

В паскале работает все правильно, проверял.
r:string;

Тогда что это такое?

r[0]:=chr(m);

[larin1974]

обращение к первому элементу строки

[DarkStyle]

Строка в Делфи - это массив символов, первый элемент которого находится по индедексу 1. На нулевом индексе находится размер строки.
Да и в Гугле точно был ответ!

[Serge_Bliznykov]

либо вставьте опцию компилятора
Syntax {$H-}
or {$LONGSTRINGS OFF}

либо просто объявите строки короткими:

s:ShortString;
r:ShortString;

[larin1974]

Cпасибо, помогло)