Работа с символами и строками в языке Object Pascal

[Rudichekkk]

Написати програму, яка може бути перекладачем в «Королівстві кривих дзеркал»: слово, введене користувачем, переводиться на «задзеркальну» мову (Літери в слові переставляються у зворотному порядку).

[type_Oleg]

Verwenden Sie im Programm dieser Typ

 var slovo1,slovo2:string;

und dann

 slovo2[i]:=slovo1[n-i+1];

wo, n - Lange der Worter

Вот, само переворачивание

var  slovo1,slovo2:string;
     n,i:Integer;
begin
// здесь должен быть ввод слова slovo1
 n:=Length(slovo1);
 SetLength(slovo2,n);
 for i:=1 to n do
  slovo2[i]:=slovo1[n-i+1];
 // здесь должен быть вывод перевернутого слова slovo2
end;

Из "Паскаль" получится "ьлаксаП"
Хотя, наверное можно как-то проще сделать.