Проблемы с функцией пользователя в ТМТ, Функция выдает неверный результат Опции

[Mike 324]

Составил прогамму на Паскале

Program Proba9;
Function MyHet(a:Integer):Integer;
var
x, y:Integer;
Begin
y:=x+2;
MyHet:=y;
End;
Var
a,b:Integer;
Begin
Write('a=');
ReadLn(a);
b:=MyHet(a);

WriteLn('b=',b);

End.

В Паскале ТМТ при a=2 результат b=655362. В Паскале IRIE при том же a вообще выдает ошибку Line 6.
В чем ошибка ?

Сообщение отредактировано: volvo - 3.11.2006 17:26