Решение задачи Array 131

#include <stdio.h>
 
int main(void)
{
    float a[10][2];
    int n;
    float bx,by;
 
    printf("N: ");
    scanf("%i",&n);
    printf("B: \n");
    printf("  x: ");
    scanf("%f",&bx);
    printf("  y: ");
    scanf("%f",&by);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i]:\n",i+1);
        printf("  x : ");
        scanf("%f",&a[i][0]);
        printf("  y : ");
        scanf("%f",&a[i][1]);
    }
 
    int amin=0;
    float r,rmin;
    for (i=0; i<n; ++i){
      r= sqrt(pow(bx-a[i][0],2)+pow(by-a[i][1],2));
      if (r

program Array131;
var
 A: array [1..10,1..2] of real;
 Bx,By,R,Rmin:real;
 N,i,Amin: integer;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,'.x :');
   readln(a[i,1]);
   write(i,'.y :');
   readln(a[i,2]);
  end;
 
 Writeln('B');
 Write('x: ');
 Readln(Bx);
 Write('y: ');
 Readln(By);
 
 Rmin:=sqrt(sqr(A[1,1]-Bx)+sqr(A[1,2]-By));
 Amin:=1;
 
 for i:=2 to N do
  begin
   R:=sqrt(sqr(A[i,1]-Bx)+sqr(A[i,2]-By));
   if R