файл

[savva]

ты прочитай то что я написал и вдумайся.и попробуй исправить.

[Bek-Z]

KTO NIBUD' SDELAL???

[ROMA2PVT]

KTO NIBUD' SDELAL???

Кто нибудь может и сделал.
Вот те пример поиска.ГУГЛОМ пользоваться умеете раз сами не в состоянии написать.

[savva]

бэк,я тебе написал все твои ошибки,ты что не можешь их исправить и с компилировать,и поэтому это должен делать я?делай сам,хоть научишься чему-нибудь.

[Bek-Z]

ZDES' POLUBOMU NE VYHODIT. ETO V DELPHI???

[ROMA2PVT]

нет это в паскале.

[Bek-Z]

НЕИЗВЕСТНЫЙ ИДЕНТИФИКАТОР IORESULT

[ROMA2PVT]

так убери проверку и всё.В паскале ABC нет такой функции.Остальное там всё пашет.

[Bek-Z]

savva ty konkretno napiwi 4to mne sdelat'? ya potom sam poimu dal'we

[savva]

в твоем коде ошибка
1)вот тут
WITH S1 DO
IF Q=S1.FAM THEN WRITELN(c,FAM,' ',NAME,' ',DAY,'\',mONTH,'\',YEAr);
подумай почему и разреши её.я писал о ней ранеее.
2)Ошибка при считывании вроде,по отдельности надо делать.
WRITELN('ВВЕДИТЕ ФАМИЛИЮ ЧЕЛОВЕКА КОТОРОГО ВЫ ИЩЕТЕ:');
RESET(C);
READLN(C,Q);