Подпрограммы и функции.

program krugi;
uses crt;
type mas1=array[1..10,1..2] of real;
mas2=array[1..10] of real;
var x:mas1;
r:mas2;
y:real;
i,c,a,j:integer;
function krug(x,r,y:real;a:integer):real;
begin
if r>sqrt(sqr(x)+sqr(y)) then
a:=0
else a:=1;
end;
begin
clrscr;
writeln('wwedite nachalo koordinat okruzhosti:');
readln(x,y);
for i:=1 to 10 do
for j:=1 to 2 do
read(x[i,j]);
for i:=1 to 10 do
read(r[i]);
c:=0;
for i:=1 to 10 do
begin
krug(r[i],x[i,1],x[i,2],a);
if a=0 then
begin
c:=c+1;
write(i:3)
end;
end;
writeln('obshtee chislo tochek popawshie v nachalo koordinat';
readln;
end.

uses crt;
const n=10;
type mas1=array[1..n,1..2] of real;
     mas2=array[1..n] of real;
     mas3=array[1..n] of byte;
var x:mas1;
    r:mas2;
    t:mas3;
    y:real;
    i,c,a,j:integer;
function krug(x,y,r:real):boolean;
begin
if r>sqrt(sqr(x)+sqr(y)) then krug:=true
else krug:=false;
end;
begin
clrscr;
writeln('wwedite koordinaty centra okruzhostej:');
for i:=1 to n do
for j:=1 to 2 do
read(x[i,j]);
writeln('wwedite radiusy okruznostej');
for i:=1 to n do
read(r[i]);
c:=0;
for i:=1 to n do
if krug(x[i,1],x[i,2],r[i]) then
 begin
  inc(c);
  t[c]:=i;
 end;
if c=0 then write('Nachalo kordinat ne popalo ni v 1 krug')
else
 begin
  write('Nomera krugov, v kotorye popalo nachalo kordinat:');
  for i:=1 to c do
  write(t[i]:3);
  writeln;
 end;
writeln('obshtee chislo krugov=',c);
readln;
end.