Записи и строки, PLEASE HELP Опции

[BAEVIK]

Записи и строки
Дано целое число. Создать массив символов, содержащий цифры этого числа в исходном и в обратном порядках.

[volvo]

var
   a:array [1..100] of integer;
   b:array [1..100] of integer;

Это что, обязательно? Для того, чтобы запомнить максимум 9 цифр числа (больше в LongInt не помещается) резервировать место под 2*100 integer-ов, хотя достаточно 2*9 byte-ов? Как ты еще без goto обошелся - странно...

var
  a, b: array[1 .. 9] of byte;
  X: longint; i, j: integer;

begin
  X := 14567; { <--- Сделать ввод с клавиатуры }
  i := 0;
  while X > 0 do begin
    inc(i); a[i] := X mod 10;
    X := X div 10;
  end;

  for j := i downto 1 do
    b[i - j + 1] := a[j];

  for j := 1 to i do write(a[j]:4);
  writeln;
  for j := 1 to i do write(b[j]:4);
  writeln;
end.

Этого вполне достаточно...