Помогите составить программу в паскале к функции y=1/x

Program n1; Uses Crt; var x,y: real; begin clrscr; write ('Введите x<>0: '); readln (x); if (x=0) then begin x: =1; {чтобы не было деления на 0} writeln ('На ноль делит нельзя! '); end; y: =1 / x; writeln ('y=',y: 5:5) readkey; end.