program Project2;
{$APPTYPE CONSOLE}
type
  TMyPoint = record
    x, y : real;
  end;
  TLine = record
    k, b : real;
  end;
  TMas = array [1..20] of TMyPoint;
////vvod точек
procedure Vvod (var A : TMas; n : Integer);
var
  i : integer;
begin
  for i := 1 to n do begin
    Write ('koordinatu x: ');
    readln (A[i].x);
    Write ('koordinatu y: ');
    readln (A[i].y);
  end;
end;
........
var
  A : TMas;
  n, i, j : integer;
begin
  Write ('vvedire kolvo tochek: ');
  readln(n);
  Vvod (A,n);
  readln;
end.