не понятная ошибка при чтении из файла элементы поля типа ЗАПИСЬ., Странная ошибка,не оторбажаются символы при цикле чтения файла While n Опции

[Andrewshkovskii]

спасибо!
появилась ешё 1 проблема...(сколькож можно..)

Читаем последний пост

Сообщение отредактировано: Andrewshkovskii - 3.04.2007 21:29

[мисс_граффити]

не надо было исправлять - лучше бы отдельно написал.

 if q=1 then
  begin <-----!вот
   writeln('Vvedite familiu');
   repeat
readln(Fam);
if (Length(Fam) >14 ) or (Length(Fam) <1) then
 begin
  writeln('Maks. dlina familii 14.Min. 1!');
  writeln('Povtorite Vvod!');
 end;
   until (Length(Fam) in [1..24]);
{...ввод...}
end; <----! от добавленного begin