Табулирование функции y=sin(x) на отрезке [1,5] с шагом 0.5.Вывод осуществить в таблицу — Pascal(Паскаль)

uses crt;
var x,xn,xk,dx,y:real;
begin
clrscr;
xn:=1;
xk:=5;
dx:=0.5;
writeln(' Табулирование функции y=sinx');
writeln('на интервале [1;5] с шагом 0.5');
writeln;
writeln('-----------------');
writeln('|   x  |    y   |');
writeln('-----------------');
x:=xn;
repeat
  y:=sin(x);
  writeln('|',x:5:1,' |',y:7:3,' |');
  x:=x+dx;
until x>xk;
writeln('-----------------');
readln
end.