помогите составить программу на паскале.
Задача
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – не менее одного пробела, за последним словом точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: буквы слова не упорядочены по алфавиту. [Ответ]

var
first, tmp, s : string;
f : text;
function IsGood(inp : string) : boolean;
var
i : integer;
f : boolean;
begin
f := True;
for i := 2 to Length(inp) do
if inp[i] < inp[i - 1] then
f := false;
IsGood := f;
end;

begin
Assign(f, 'input.txt');
Reset(f);
ReadLn(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
first := Copy(s, 1, Pos(' ', s) - 1);
Delete(s, 1, Pos(' ', s));
while s <> '' do
begin
if Pos(' ', s) <> 0 then
begin
tmp := Copy(s, 1, Pos(' ', s) - 1);
Delete(s, 1, Pos(' ', s));
end
else
begin
tmp := Copy(s, 1, Pos('.', s) - 1);
Delete(s, 1, Pos('.', s));
end;
if (IsGood(tmp) and (tmp <> first)) then
WriteLn(f, tmp);
end;
Close(f);
end. [Ответ]

Этот раздел периодически становится разделом помощи студентам ФКН! [Ответ]

Gendalf, да? И откуда такие данные? Или лишь бы п*******ь? [Ответ]

Gendalf
Них не угадал! Это не ФКН! [Ответ]

Ну ПММ... обычно с этих двух факультетов студенты пишут суда о помощи [Ответ]

Да откуда б ни писали - сами должны учится!!! а то потом удивляются откуда такие дауны с высшим образованием появляются? Да вот отсюда!!!"
Хотя задачка-то вообще школьная. [Ответ]

Сообщение от safe:
Хотя задачка-то вообще школьная.

вот именно... [Ответ]

Gendalf
Да бл* это не ПММ, не ФКН и вообще не вуз, а школа.
Gendalf
Потрындеть не о чем? [Ответ]

Да понапоступают всякие, даж элементарного паскаля не знают! Нах поступают?! хз! [Ответ]

HepB
Вам же сказано, тип еще никуда не поступал. Нефиг на него гнать! [Ответ]

народ, а не подскажите, с помощью какой литературы или каких-то обучающих дисов можно научиться работать в паскале? [Ответ]

Сообщение от X0R:
HepB
Вам же сказано, тип еще никуда не поступал. Нефиг на него гнать!

Да ни на кого я не гнал! Я на фкн учусь ,рассказываю про ситьюэйшн! [Ответ]

HepB
Я не на ФКН учусь, но ситуция тоже знакомая, даже очень [Ответ]

Сообщение от X0R:
Gendalf
Да бл* это не ПММ, не ФКН и вообще не вуз, а школа.
Gendalf
Потрындеть не о чем?

Неа.. вот если бы создавали бы еще темы интесресные =) [Ответ]

Фишка в том, что здесь интересных тем никогда не было и не будет.
Пойду напьюсь со скуки... [Ответ]

ХАРЧО, ну приведи тогда пример интересной темы, какой ты ее представляешь... [Ответ]

SuHar`, ну чтож, пооткровенничаю. Раз уж форум не посвящен конкретно ни одному из языков и ни одной из технологий программирования, то чтобы было интересно всем (я так думаю) здесь нужно обсуждать общие алгоритмы, которые могут быть широко применены. [Ответ]

SuHar`, вообще нафиг нужны такие темы, "помогите решить задачу", когда эта самая задача решается минут за 5, да ещё и в инете можно найти без проблем. А то поналетело всяких халявщиков, и толку никакого. [Ответ]