Внести в программу необходимые исправления (Pascal)

[kartina]

Добрый вечер!
Требуется ответить на вопросы:
1) Цепочка вызовов методов до внесения каких-либо изменений в приведенный фрагмент программы;
2) Ответ на вопрос: выполнится ли в результате работы предложенного фрагмента программы метод TSum.result или нет? (если да – Ваш ответ закончен, если нет – переходите к п. 3);
3) Внесенные Вами изменения в код программы.
(Не обязательно переписывать весь код программы, напишите только измененные строки, например, так: строка из программы и эта же строка после внесения изменений);
4) Цепочка вызовов методов после внесения Ваших изменений.

TChislo=object
  R, X, Y: real;
  procedure Proc(X,Y:real);virtual;
  procedure Display;      virtual;
  procedure result;
End;
TSum=object (TChislo)
procedure result;
End;
TUmnog=object (TChislo)
procedure result;
End;
Procedure TChislo.Proc(X,Y:real);
Begin
	X:= X;
      Y:= Y;
      result;
	Display;
End; 
Procedure TChislo.Display;
begin
{выводит значение R}
end;
Procedure TChislo. result;
begin
{выводит знак ?}
end;
Procedure TSum.result;
begin
R := X + Y;
end;
Procedure TUmnog.result;
begin
R := X * Y;
end;


var p: TSum;
begin
 …
 p.Proc(25,3);
 …
end.

Мои ответы:
1) TChislo.Proc-TChislo.result-TChislo.Display
2) Нет, т.к. метод TChislo.result не виртуальный
3)

TChislo=object
  R, X, Y: real;
  procedure Proc(X,Y:real);virtual;
  procedure Display;      virtual;
  procedure result; virtual;
End;

4) TChislo.Proc-TSum.result

Проверьте, пожалуйста. За ранее большое спасибо!

[Kот]

Подниму вопрос. Тема еще актуальна. На мой взгляд, тоже всё верно. Камрады, как считаете?

[Stilet]

Считаю что такие вопросы нужно прогонять через отладчик и смотреть куда он будет вести.