Ответ: Спасибо. Будут вопросы - приходите

Ответ: Не совсем однозначное условие:
УДАЛЯТЬ = уменьшать размер массива? Тогда как он должен быть описан? Или просто заменить на какое-то значение?

Ответ: Я писал как-то рассылку на эту тему:
http://borlpasc.narod.ru/Boris/ogl.htm

Ответ: Об этом писал здесь 2007-10-14 13:57:53 Вася.
Посмотрите совет

Ответ: Вот, пожалуйста. Только обратите внимание, что здесь кавычки удваиваются
ЗЫ: не удивляйтесь, что Ваше сообщение сразу не появляется - очень много плохого спама - пришлось ввести премодерацию (предварительный просмотр сообщений )
---- №1 ----
VAR
a, b, c, x, min: Real;
BEGIN
Write(''Введите значение аргумента (не ноль!): ''); ReadLn(x);
if x = 0 then WriteLn(''Логарифм нуля не существует'')
else
begin
a:= sin(x);
b:= cos(x);
c:= ln(abs(x));
Write(''Минимальное значение имеет '');
if a < b then
if a < c then WriteLn(''sin(x) = '',a)
else WriteLn(''ln(|x|) = '',c)
else
if b < c then WriteLn(''cox(x) = '',b)
else WriteLn(''ln(|x|) = '',c);
end;
WriteLn(''Для справки:'');
Writeln(''sin(x) ='',a);
WriteLn(''cos(x) ='',b);
WriteLn(''ln(|x|)='',c)
END.
==---- №2 ----
VAR
x1, y1, x2, y2: Real;
BEGIN
Writeln(''Значения координат разделять пробелами или ENTER'');
Write(''Введите координаты x и y первой точки : ''); ReadLn(x1, y1);
Write(''Введите координаты x и y второй точки : ''); ReadLn(x2, y2);
x1:= x1*x1 + y1*y1; {}
x2:= x2*x2 + y2*y2; {}
if x1 < x2 then WriteLn(''Первая точка ближе к началу координат'')
else if x1 > x2 then WriteLn(''Вторая точка ближе к началу координат'')
else WriteLn(''Точки равноудалены от начала координат'');
END.
==---- №3 ----
VAR
x, y, r, x0, y0: Real;
BEGIN
Write(''Введите координаты точки x и y: ''); ReadLn(x, y);
Write(''Введите радиус окружности r: ''); ReadLn(r);
Write(''Введите координаы центра круга x0 и y0: ''); ReadLn(x0, y0);
x := (x-x0)*(x-x0) + (y-y0)*(y-y0);
r := r*r;
if x < r then Writeln(''Точка внутри круга'')
else
if x > r then WriteLn(''Точка вне круга'')
else WriteLn(''Точка лежит на окружности'');
END.

Ответ: Вот решение.
=====
const
Source: String = '' 1212 222 ababab ababcdcd ababcdcdc ababccdd'';
var
i, k, len: Integer;
s, s_min, s_max: String;
b: Boolean;
charsCount: array[0..255] of integer;
BEGIN
len:= length(source);
i:=1;
while i < len do begin
while (i < len) and (source[i] = '' '') do inc(i);
if i = len then break;
for k:=0 to 255 do charsCount[k]:=0;
s:='''';
while (i<len) and (source[i] <> '' '') do begin
inc(charsCount[ord(source[i])]);
s:=s + source[i];
inc(i)
end;
b:=TRUE;
if s <> '''' then begin
for k:=0 to 255 do
if (charsCount[k] > 0) and (charsCount[k] <> 2) then
begin b:=FALSE; Break end;
if b then begin
if s_min = '''' then s_min:= s
else if length(s) < length(s_min) then s_min := s;
if s_max = '''' then s_max:= s
else if length(s) > length(s_max) then s_max := s;
end;
end;
end;
if s_min <> '''' then writeln(''minimal: '',s_min);
if s_max <> '''' then writeLn(''maximal: '',s_max);
END.

Ответ: Буду проверять, но, поскольку объем работы большой, а времени мало, то не могли бы Вы помочь - написать,если не ссылку, то название программы (тему?)

Ответ: Наше общее мнение, что не надо. Дань традициям (но с ошибками писать и по-русски не надо)

Ответ: :(( Не успеваю написать

Ответ: Это несложно. Вот решение. Только обратите внимание: здесь одиночные кавычка заменяются на двойные
--
var
r, a: Real;
BEGIN
Write(''Введите радиус круга: ''); ReadLn(r);
Write(''Введите сторону квадрата: ''); ReadLn(a);
if a*a > r*r*pi then WriteLn(''Квадрат имеет большую площадь'')
else if a*a = r*r*pi then WriteLn(''Площади равны'')
else WriteLn(''Круг имеет большую площадь'');
END.

Ответ: Хм, а что Вы понимаете под дополнениями? Если файлы с расширением PAS (а это лучший вариант), то можно в любую папку, но укажите пусть к ней Options -> Directories -> Include Directories.
Но еще лучше напишите адрес, с которого взяли долнения - Я СКАЖУ ВСЕ АБСОЛЮТНО ТОЧНО
PS: E-mail Вы не написали :((