вывод строки в обратном порядке Delphi

[BelialL]

Подскажите плз в чем моя ошибка? вот задание Составить программу ввода с клавиатуры своей фамилии и вывода на экран составляющих ее букв в обратном порядке.)
вот что у меня получилось:

uses
  SysUtils;
  var
  a:string; b:integer;

begin
  write (a);
  for b:=length(a) downto 1 do
  write (b,a);
  readln;
end.

[fbus]

чисто навскидку

uses
  SysUtils;
  var
  a:string; b:integer;

begin
  readln(a);
  for b:=length(a) downto 1 do
  write (a[b]);
  readln;
end.

[BelialL]

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

чисто навскидку

uses
  SysUtils;
  var
  a:string; b:integer;

begin
  readln(a);
  for b:=length(a) downto 1 do
  write (a[b]);
  readln;
end.

write (a[b]); сдесь ошибку выдает (array type required)

[Serge_Bliznykov]

write (a[b]); сдесь ошибку выдает (array type required)

не подтверждаю!

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;

var
  a:string; b:integer;

begin
  readln(a);
  for b:=length(a) downto 1 do
    write(a[b]);
  readln;
end.

Код правильный и рабочий.
А при необходимости могу выложить и скомпилированный EXE-шник...

Чем компилируете? Уверены, что переменная a описана именно как string?

[BelialL]

прошу прощения моя ошибка я вместо write (a[b]); написал write (b[a]);
Спасибо за помощь!!

[Alter]

более быстрый способ, как версия 2

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A :string;
  I,II,L :Integer;
  Buf :Char;
  Tmp :string;

begin
 Readln(A);
 Tmp := A;
 L := Length(Tmp);
 II := L div 2;
 for I := 1 to II do
 begin
  Buf := Tmp[I];
  Tmp[I] := Tmp[L - I + 1];
  Tmp[L - I + 1] := Buf;
 end;
 Writeln;
 Writeln(Tmp);
 Readln;
end.

[Serge_Bliznykov]

Alter
не хотелось бы флудить.. но и пройти мимо не могу..

Позвольте, коллега, а с чего Вы взяли, что вывести элементы по индексу медленнее, чем перетасовывать их в памяти?! Откуда утверждение "более быстрый способ" ?

[_-Re@l-_]

Позвольте, коллега, а с чего Вы взяли, что вывести элементы по индексу медленнее, чем перетасовывать их в памяти?! Откуда утверждение "более быстрый способ" ?

Serge_Bliznykov, я решил проверить, и выяснил вот что: ваш код выполняется за 77 мс, а код Alter - 283 мс.