Массивы одномерные

[TinMan]

Сообщение от Poma][a

Да, да, сори проглядел, мой косяк....

Фикня, это просто опечатка была )
В моем куске, кстати, тоже сейчас пару ошибок вижу.. Поправишь? ))

[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. Я пытался её убрать, изменить, сделать переменной. Но массивы жестко с ней связаны, а моих скудных познаний в этом языке недостаточно, чтобы придумать альтернативу.

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

[TinMan]

Alexeoi, пока не поздно (пока не прижучили модераторы, причем ЗА ДЕЛО), сотри свой мессадж (вместо содержимого напиши извинение), создай новую тему (назвав ее по существу) и задай свой вопрос в ней. Я с удовольствием отвечу (и не только я).

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

[Poma][a]

нет, не нашел....

if MaxNeg=0 then MaxNeg:= i;

ток это кажись лишнее, imho... просто сразу MaxNeg := 1 нельзя?