Something

program punkty;
uses
    crt;
type
    punkt=record
    x,y:real;
    end;
type
    arrPunkt=array[1..10] of punkt;
var
   i:integer;
   p:punkt;
   t:arrPunkt;
   wynik:punkt;
function
        odl(p1,p2:punkt):real;
        begin
        odl:=sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y));
        end;
procedure
        najbl(p:punkt; var t:arrPunkt; var wynik:punkt);
        var
        i:integer;
        begin
        wynik:=t[1];
        for i:=2 to 10 do
        if odl(p,t[i])<odl(p,wynik) then wynik:=t[i];
        end;
begin
     clrscr;
     for i:=1 to 10 do
     begin
     t[i].x:=(random-0.5)*20;
     t[i].y:=(random-0.5)*20
     end;
     for i:=1 to 10 do writeln(t[i].x:0:6,'  ',t[i].y:0:6);
     writeln;
     write('Podaj wspolrzedna X punktu : ');readln(p.x);
     write('Podaj wspolrzedna Y punktu : ');readln(p.y);
     writeln;
     najbl(p,t,wynik);
     writeln('najblizszy punkt ma wspolrzedne : ',wynik.x:0:6,' ',wynik.y:0:6);
     readln;
end.