Помогите пожалуйста сделать задачки в Delphi

[YO$YA]

Здравствуйте мне очень нужна помощь по решению некоторых задачек в Delphi заранее благодарен =)

1.На плоскости даны координаты точеи. Определить, лежит ли точка в нутри кольца, с внутренним радиусом R1 и внешним R2.
2. Даны три числа. Выведите их на экран в порядке возрастания их значений.

[Пaвeл]

Код большой, но зато все предельно понятно.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var m,a,b,c:longint;
Function max(x,y:longint):longint;
begin
if x>y then max:=x
else max:=y;
end;
begin
readln(a,b,c);
{max(a,max(b,c)) это максимальное число}
if max(a,max(b,c))=a then begin
{max число-a}
if b<c then write(b,' ',c)
else write(c,' ',b);
end
else
if max(a,max(b,c))=b then begin
{max число-b}
if a<c then write(a,' ',c)
else write(c,' ',a);
end
else
if max(a,max(b,c))=c then begin
{max число-c}
if b<a then write(b,' ',a)
else write(a,' ',b);
end;

write(' ',max(a,max(b,c))); {вывели самое большое число}
readln;
end.

[SNUPY]

Задача про кольцо:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var x,y,Cx,Cy, R1,R2, R:double;
begin
  writeln('введите координаты точки,Х:');
  Readln(x);
  writeln('введите координаты точки, y:');
  Readln(y);
  writeln('введите координаты центра окружности,Х:');
  Readln(Cx);
  writeln('введите координаты центра окружности, y:');
  Readln(Cy);
  writeln('введите радису внешней окружности');
  Readln(R1);
  writeln('введите радису внутренней окружности');
  Readln(R2);
  R:=sqrt(sqr(x-Cx)+sqr(y-Cy));
  if (R>R2) and (R<R1) then
     writeln('лежит')
  else
     wrieln ('не лежит');
  readln;
end.

Спасибо написать не забудь, двоешник ^_^

[YO$YA]

Спасибо огромнейшое )))