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

[BAEVIK]

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

[volvo]

А всё равно не правильно нада чтобы не просто в обратном порядке а чтобы допустим число 1 заменялась буквай А ,а 2 заменялась В

Об этом мы что, должны были сами догадаться, из твоего задания? Там ничего подобного сказано не было...

как это сделать ?

var
  a: array[1 .. 9] of byte;
  b: array[1 .. 9] of char;
  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] := Chr(Ord('A') + a[j]); { 0 заменяется на А, 1 на B и так далее... }
  for j := 1 to i do write(a[j]:4);
  writeln;
  for j := 1 to i do write(b[j]:4);
  writeln;
end.

, и в следующий раз будь добр приводить задачу полностью...

[BAEVIK]

Об этом мы что, должны были сами догадаться, из твоего задания? Там ничего подобного сказано не было...

var
  a: array[1 .. 9] of byte;
  b: array[1 .. 9] of char;
  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] := Chr(Ord('A') + a[j]); { 0 заменяется на А, 1 на B и так далее... }
  for j := 1 to i do write(a[j]:4);
  writeln;
  for j := 1 to i do write(b[j]:4);
  writeln;
end.

, и в следующий раз будь добр приводить задачу полностью...

Да я сам не знал это училка типа так нада сделать а сразу наверно написать её не ьзя было !!!