Процедура поиска(Pascal)

[tarakanet]

Я хочу сделать так что бы то что я ввел оно искало у меня не получается((

Procedure XY;
Begin
Readln (x);
Readln (y);
Writeln;
Writeln ('<<<СПИСОК ПАЦІЄНТІВ СТАРШИХ ЗА ',Х,' ТА ДІАГНОЗОМ', У,'>>>');
Shapka;
S:=False;
For i:=1 to Num do
With Teh[i] do 
If Teh[i].PROBEG>X and Teh[i].NARUSH=Y then
Begin
Write('||',FIO:9,'||');
Write(MARKA:10,'||');
Write(PROBEG:10,'||');
Write(NOMER:9,'||');
Write(NARUSH:9,'||');
Write(DATAG:9,'||');
Writeln;
S:=True;
End;

[arrowsf1]

скинь текст всей проги плиз

[tarakanet]

В архиве исходник

[arrowsf1]

а ты уверен, что там так много надо писать, а не по упрощенным-универсальным алгоритмам???

[tarakanet]

там все работает кроме 1-ой процедурки которая называется "XY"

[arrowsf1]

Сообщение от tarakanet

там все работает кроме 1-ой процедурки которая называется "XY"

может её переименовать, а то можь её что то дублирует

[tarakanet]

Да нет я ее сам называл а дале скопировал содержание процедуры поиск и поменял там коечто ну если сравнить процедуру "Поиск" и "ХУ" то все поймешь, я думаю что в процедуре "ХУ" наверно надо как то по другому выводить результаты поиска...когда я компилирую программу то в процедуре "ХУ" выдает ошибка 41:Типы операндов не соответствуют операции.

[tarakanet]

Сделал все что мог что было похоже то к чему я стремился весь день ета прога во вложеных мб кто-то доведет ету прогу до конца. У меня нет времени мне взавтра ее сдавать так что кто хочит доделуйте...
ПОЖЕЛАЙТЕ УДАЧИ МНЕ! ! !