Изменение программы шифрования

[Alexeoi]

Народ, помогите, кому не лень)) Только-только приступил к изучению языка Турбо Паскаль. Нашел неплохую програмку по шифрованию данных. Ниже привожу код.

const
n = 15;
atext: array[1..10] of char = ('0','1','2','3','4','5','6','7','8 ','9');
acode: array[1..11] of char = ('&','+','/','.','^','@','"','!','%','#','$');
var
mytext: array[1..n] of char;
mycode: array[1..n] of char;
i, j: integer;

begin
writeln('Введите данные: ');
for i := 1 to n do
read(mytext[i]);

for i := 1 to n do begin
j := 1;
while (j <= 10) and (mytext[i] <> atext[j]) do
j := j + 1;
if j <= 10 then
mycode[i] := acode[j]
else
mycode[i] := acode[11];
end;

write('Результат: ');
for i := 1 to n do
write(mycode[i]);

readln;
end.

В принципе, программа работает. Но есть проблема. Количество шифруемых символов ограничена константой n. Я пытался её убрать, изменить, сделать переменной. Но массивы жестко с ней связаны, а моих скудных познаний в этом языке недостаточно, чтобы придумать альтернативу.

Так что, если можете, помогите сделать так, чтобы можно было ввести произвольное количество шифруемых данных.

[Hacker19_90]

аа компилятор у вас какой?

[BDA]

Не сказал бы, что программка неплоха

const 
atext: string = '0123456789';
acode: string = '$&+/.^@"!%#';

var
c: char;
i: integer;

begin
writeln('Введите данные: ');
while not eoln do
  begin
	  read(c);
	  write(acode[pos(c, atext)+1]);
  end;
readln;
end.

[p51x]

Я пытался её убрать, изменить, сделать переменной. Но массивы жестко с ней связаны, а моих скудных познаний в этом языке недостаточно, чтобы придумать альтернативу.

Динамические массивы и ввод н

[Alexeoi]

Компилятор вроде Турбо Паскаль 7.0.
Спасибо всем за советы, обязательно попробую.

[Hacker19_90]

если у вас как вы говорите

Компилятор вроде Турбо Паскаль 7.0.

то вот такое

Динамические массивы и ввод н

у вас не получится (просто так)

[Alexeoi]

BDA, спасибо за помощь. Уже испробовал, программа отлично работает.

[Alexeoi]

Hacker, почему?

[Hacker19_90]

потому что в Turbo Pascal нет поддержки динамических массивов.

[Alexeoi]

Понятно...