N точек на плоскости заданы своими координатами (x,y). Определить точку, минимально отдалённую от начала координат — Pascal(Паскаль)

Program zad;
Uses Crt;
var
x,y,a,b,d:real;
k,n:integer;
function dist(x,y:real):real;
      begin
       dist:=sqrt(sqr(x)+sqr(y));
         end;
begin 
Clrscr;
readln(n);
 read(x,y);
  a:=x;
   b:=y;
    d:=dist(x,y);
    for k:=2 to n do begin
   read(x,y);
  if dist(x,y)<d then begin 
                   d:=dist(x,y);
                     a:=x;
                      b:=y;
                       end;                                   
end;
writeln(a,' ',b);
readln;
end.