Версия для печати темы

Автор: Hunt666 4.03.2007 21:19

возник такой вопрос:
у меня есть файл состоящий скажем из 5 записей , необходимо вывести на экран каждую из этих записей
у меня почему то выводит тока 5ую а первые 4 не получается

begin
                  assign(f,'a:\Baza.txt');
                  reset(f);
                 for i:=0 to 4 do
                  read(f,x);
                  writeln('название группы: ',x.name);
                                   with x,group do
                                   begin
                                        writeln('стиль исполнения: ',style);
                                        writeln('страна: ',strana);
                                   end;
                                   with x,group,id do
                                   begin
                                        writeln('кол-во чел. в группе: ',kol);
                                        writeln('возраст группы: ',voz);
                                   end;
                                   with x,group,albom do
                                   begin
                                        writeln('название альбома: ',name2);
                                        writeln('год издания альбома: ',god);
                                   end;
                                   writeln('=======================');
                   readln;
                   close(f);
                   end;

(это фрагмент, x запись)

Автор: мисс_граффити 4.03.2007 21:25

begin end потерял.
в цикле выполняется только

read(f,x);

, все остальное - вне цикла.

сделал бы нормальное форматирование - сразу бы заметил.