Люди, кто шарит в паскале, помогите, пожалуйста.

Доброго времени суток.

var F1, F2 : Text; {для компилятора Delphi - TextFile}

const StrLen = 80; {предельная длина строки}

Открываете два файла на запись.

repeat
ReadLn(S);
if Length(S) > StrLen then WriteLn(F1, S) {пишем в первый файл}
else WriteLn(F2, S); {или во второй}
until S = ''; {условие выхода из цикла = - ввод пустой строки}

Закрываете файлы.

Удачи!

ХИМИЯ
Чтоб химичка была мной довольная,
Чтоб я смог у неё отличиться,
Ты приснись мне сегодня, КОНТРОЛЬНАЯ!
Менделееву ж снилась таблица.
. .
ФИЗИКА
Физик выдвинул мне возражения,
Но ему докажу я умело,
Что земное сильней притяжение,
Коль "поллитру" добавили в тело.
. .
ИСТОРИЯ
Историчка- ну просто чудовище!
Клюшкой в лоб доказать бы ей надо,
Что ЛЕДОВОЕ было ПОБОИЩЕ
В прошлом веке, мы бились с Канадой! *
. .
МАТЕМАТИКА
Мне училка влепила "двояк"
За пример про две точки и линию.
Мол, прямая- из дома в кабак.
А обратно- зигзагами длинная.. .
. .
АНАТОМИЯ
Анатомия- не математика.
Размножение- не умножение.
Изучили мы тему на практике!
Одноклассницы вот... в положении.. .
. .
ЛИТЕРАТУРА
Пусть учитель ставит жирный "кол",
Тычет мне в лицо программу школьную.. .
Пушкина за то я не прочел,
Что противны рифмы мне глагольные!

короче так берешь пару переменных одна из них будет строковая другая числовая, циклом проверяешь через длинну строки какого она размера выясняешь этим же циклом больше она предела если да то в один если нет то в другой, пиши в пм договоримся. а то ща винда чистая паскаль влом ставить:)