Ошибка 3 в паскале, посмотрите почему?

[Ольга1305]

Посмотрите, пожалуйста, где ошибка!
Мозг уже не сооброжает....(((

Обозначала функцию chr(i) через sim. Тело цикла нужно было записать в виде составного оператора, заключив его в операторные скобки begin и end.
Ввела, но пишет ошибку Unknown identifier. В программировании я ноль, помогите плиз найти ошибку. Заранее спасибо.

program cod_sim;
var n,i:byte;
p:char;
begin
repeat
writeln('zadajte celoe polgitelnoe chislo n=');
readln(n);
for i:=1 to n do
begin
sim:=chr(i);
writeln (i,'-',sim,';');
end;
writeln ('povtorit raschet? Y/n');
readln(p);
until (p='n') or (p='N');
end.

[OCTAGRAM]

program cod_sim;
var
  n, i : Byte;
  p    : Char;
  sim  : Char;
begin
  repeat
    Write('Задайте целое положительное число n=');
    ReadLn(n);
    for i := 1 to n do
    begin
      sim := Chr(i);
      WriteLn(i, '-', sim, ';');
    end;
    repeat
      Write('Повторить расчет (Y/N)? ');
      ReadLn(p);
    until (p = 'n') or (p = 'N') or (p = 'y') or (p = 'Y');
  until (p = 'n') or (p = 'N');
end.

[Ольга1305]

Спасибо огромнейшее за помощь!!!!!!!