Проблемы с решением программы.

[Igorek92]

Задача: Переставить символы в обратном порядке, исходя из того, что символов максимум 70. Программа не запускается. Вот код.

program temp_1;

var 
a:array [1..70] of char;
temp:char; i:integer;

begin

write('Ââåäèòå ñèìâîëû');

for i:=1 to 70 do
read(a[i]);

for i:=1 to 70 do
begin
temp:=a[i];
a[i]:=a[71-i];
a[71-i]:=temp;
end;

for i:=1 to 70 do
write(a[i]);
readln;
end.

[dmitriegorovih]

program temp_1;

var 
a:array [1..70] of char;
temp:char; i:integer;

begin

write('Ââåäèòå ñèìâîëû');

for i:=1 to 70 do
read(a[i]);

for i:=1 to 70 do
begin
temp:=a[i];
a[i]:=a[71-i];
a[71-i]:=temp;
end;

for i:=1 to 70 do
write(a[i]);
readln;
end.

Извините я немного подзабыл паскаль но вот мой пример должен сработать

var
s,s2:string;
n:integer;
begin
s2:='';
s:='>>>Сюды пишешь любой текст<<<';
n:=0;
for n:=length(s) downto 1 do begin
s2:=s2+s[n]
end;
// s2 вот эта переменна уже содержит нужный текст
end;

[Igorek92]

Спасибо, всё исправил, всё работает