Простейшие задачки

[zoza1]

Народ помагите пажалуйста решить задачки, не в кансольной версии делфи:
1)Строка Т состоит из слов равной длины, разделенных побелами. Удалить второе по счету слово.
2)На оси ОХ расположены три точки a,b,c. Определить какая из точек b,c расположена ближе к точке a.
Спасибо заранее.

[russian-stalker]

1:

var
i,i2:integer;
s:string;
begin
s:=edit1.Text;
if pos(' ',s)<>0 then
begin
i:=pos(' ',s);
delete(s,pos(' ',s),1);
end;
if pos(' ',s)<>0 then
begin
i2:=pos(' ',s);
end;
delete(s,i,i2-i);
edit1.Text:=s;
end;

2.

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
x1,x2:integer;
begin
a:=10;
b:=-10;
c:=-11;
x1:=a-b;
x2:=a-c;
if abs(x1)<abs(x2) then
showmessage('b') else
showmessage('c');
end;