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

#include <stdio.h>
#include <math.h>
 
int main(void)
{
    float a[10][2];
    int n;
 
    printf("N: ");
    scanf("%i",&n);
 
    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){
        if ((a[i][0]>0 && a[i][1]>0)||(a[i][0]<0 && a[i][1]<0)) {
            r= sqrt(pow(a[i][0],2)+pow(a[i][1],2));
            if (r<rmin || i==0) {
                rmin=r;
                amin=i;
            }
        }
    }
 
    printf("A  %i :\n x: %f\n y: %f\n",amin+1,a[amin][0],a[amin][1]);
 
    return 0;
}

program Array133;
 
var
 A: array [1..10,1..2] of real;
 R,Rmin,x,y:real;
 N,i: 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;
 
 Rmin:=0;
 x:=0;
 y:=0;
 
 
 
 for i:=1 to N do
  if ((A[i,1]>0) and (A[i,2]>0)) or ((A[i,1]<0) and (A[i,2]<0))then
   begin
    R:=sqrt(sqr(A[i,1])+sqr(A[i,2]));
    if (R < Rmin) or (x+y=0) then
     begin
      Rmin:=R;
      x:=A[i,1];
      y:=A[i,2];
     end;
   end;
 
  Writeln (x,', ', y);
end.