Delphi динамические переменные

[Arden Virth]

Вот такая задачка по динамическим переменным из учебника. Не могу понять - где ошибка.

procedure TForm1.Button1Click(Sender: TObject);
type
PInteger=^Integer;

var

p1,p2,p3: ^Integer; // указатели на переменные типа integer

begin

New(p1);
New(p2);
New(p3);
p1:= 5;
р2:= 3;
р3 := р1 + р2;
ShowMessage('Сумма чисел равна ' + IntToStr(р3));

Dispose(p1);
Dispose(р2);
Dispose(р3);

end;

end.



[Error] Unit1.pas(41): Incompatible types: 'Integer' and 'Pointer'
[Error] Unit1.pas(42): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(43): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(43): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(44): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(49): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(50): Illegal character in input file: 'р' ($F0)
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[GetMax]

Не могу понять - где ошибка.

Не нравится компилятору переменная р. Заменил на другую и все работает.

type
PInteger=^Integer;

var

q1,q2,q3:PInteger; // указатели на переменные типа integer

begin

New(q1);
New(q2);
New(q3);
q2^:= 3;
q1^:=5;
q3^:=q1^ + q2^;
ShowMessage('Сумма чисел равна ' + IntToStr(q3^));

Dispose(q1);
Dispose(q2);
Dispose(q3);


end;

[Serge_Bliznykov]

Не нравится компилятору переменная р. Заменил на другую и все работает.

да при чём здесь p ?!
Где "домик" после имени переменной?! Разумеется, он pointer не может присвоить Integer.
надо так:

p1^:= 5;
р2^:= 3;
р3^ := р1^ + р2^;

ДОБАВЛЕНО

ан нет, имя переменной тоже при чём...
согласно этому:

[Error] Unit1.pas(42): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(43): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(43): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(44): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(49): Illegal character in input file: 'р' ($F0)
[Error] Unit1.pas(50): Illegal character in input file: 'р' ($F0)

в строчках 42-50 вместо латинской P используется русская Р (эр)