по информатике. турбо паскаль абс. где ошибка? пишет ожидалось описание или бегин

Question

programm sdvig;

var a,aa,b,r:string;

i,n:integer;

begin

writln ("ведите числоi");

readln(a);

r:=a;

aa:=a+a;

for i:=2 to n do

b:= copy (aa,i,n)

if b>r then r:=b;

end;

writeln ("наибольшее число-r");

readln;

end.

Алексей Рыбин · Accepted Answer

begin после for

Андрей Тарасов · Answer

writeln исправь и перед for кажется begin надо

Александр Кметь · Answer

var a,aa,b,r:string;
i,n:integer;
begin
writeln ('ведите число');
readln(a);
r:=a;
aa:=a+a;
for i:=2 to n do begin
b:= copy (aa,i,n);
if b>r then r:=b;
end;
writeln ('наибольшее число- ', r);
readln;
end.

вот так, только что-то не совсем понятен мне смысл переменной n, так как значения ты ей не присвоил