Turbo Pascal, помогите программисты дорогие!

кое что отправил на почту

Тут работы на полдня. Вряд ли кто-то возьмется.

Тут на килорубль работы.

Ну и запрос.. . Дебильнее управления не придумать.. . Почему не сделать просто список дат? То есть просто тупо текстовое поле для редактирования? Если речь о турбо паскале, то там есть такой пакет турбо вижн, прообраз Делфи, (но ещё далеко не Делфи) на нём работает среда самого седьмого паскаля, некогда популярный дос навигатора и ещё целая туча программ. Хотя конкретно эту отдельную задачу можно решить как угодно, но разбираться с этим бесплатно никто не будет. Зайдите на сайт для фрилансеров, сделайте выгодное предложение. Или, как вариант, если Вы живёте в Питере и являетесь взрослой девочкой, можете зайти в гости. Паскаль у меня где-то был, душ работает.

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

да тут работы на часик-два, если не меньше. не так уж и много, не понимаю чего все так ужаснулись такой вроде бы простой задаче)

Хитрость в редактировании.

Мой тебе совет: сделай сначала все кроме редактирования используя Read/ReadLn - редактирование оставь на потом. Если что, сможешь показать что уже сделано, рассказать на чем застряла и потребовать минимальную положительную оценку.

program XXX;
const
__N = 10;
var
__Arr: array [1..N] of record
____D: TDateTime; // или как оно там в BP было
__end;
begin
__for I := 1 TO N do
__begin
__Write('Enter the date, sobaka: ')
__ReadLn(Arr.D);
__end;
... и т. д.

Можно взять готовую процедуру редактирования из какой-нибудь старой книжки. Если не найдешь для редактирования даты возьми для строки и подправь.

Повозиться есть с чем, но все решаемо.
Основная идея цикл до окончания редактирования (например нажатия Enter) и обработка нажатых клавиш.
Что-то такое:

repeat
__Ch := ReadKey; // во блин уже и не помню точно как оно называлось
__case Ch of
____'0'..'9': ...

____#0: // за 0 код символа типа Del, Insert, стрелки и т. п.
______begin
________Ch := ReadKey;
________case Key of
__________#72: ...
__________...
________end
______end;
____else
______бибикать в спикер
__end;
until Ch = #13; //Enter - выход