Записи с файлами!!! что то не правельно

[777pro777]

почему выводит не так как надо(

program primer1;
uses crt;
type anketa=record
   f: string[15];
   im: string[15];
   o: string[15];
   pol: string[2];
   vozrast: string[2];
   curs: string[2];
end;
var
f_in:text;
a:array[1..100] of anketa;
i:integer;
n:byte;

begin
Assign(f_in,'C:\Users\777\Desktop\labb.txt');
reset(f_in);


{while not Eof(f_in) do begin }
with a[i] do begin
writeln('**********************************************************');
writeln('*фамилия     *имя       *отчество    *пол *возраст *курс *');
writeln('**********************************************************');
    for i:=1 to 12 do begin
Readln(f_in,f,im,o,vozrast,curs);
gotoXY(1,whereY);write('* ',f);
   gotoXY(14,whereY);write('* ',im);
   gotoXY(25,whereY);write('* ',o);
   gotoXY(38,whereY);write('*',pol);
   gotoXY(43,whereY);write('*', vozrast);
   gotoXY(52,whereY);write('*',curs);
   gotoXY(58,whereY);writeln('*');

end;end;
 writeln('**********************************************************');




end.

[Rififi]

777pro777

почему выводит не так как надо(

Потому что ты делаешь что-то не то.

[Stilet]

А как выводит?

[s-andriano]

Напишите:
1. Как выводит.
2. Как должно выводить.
3. Чем первое отличается от второго.

[777pro777]

Сообщение от s-andriano

Напишите:
1. Как выводит.
2. Как должно выводить.
3. Чем первое отличается от второго.

1. таблицей
2. имя под именем фамилия под фамилией столбцом

[s-andriano]

И чем первое отличается от второго?

[Stilet]

777pro777

Прикрепи сюда свой файл, откуда берутся данные.

[777pro777]

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

Прикрепи сюда свой файл, откуда берутся данные.

Петров
Сергей
Андреевич
М
25
2
Сидоров
игорь
Валерьевич
м
18
4

в текстовом формате сохраните и вот файл

[Stilet]

Readln(f_in,f);
readln(f_in,im);
readln(f_in,o);
readln(f_in,pol);
readln(f_in,vozrast);
readln(f_in,curs);
gotoXY(1,whereY);write('* ',f);
   gotoXY(14,whereY);write('* ',im);
   gotoXY(25,whereY);write('* ',o);
   gotoXY(38,whereY);write('*',pol);
   gotoXY(43,whereY);write('*', vozrast);
   gotoXY(52,whereY);write('*',curs);
   gotoXY(58,whereY);writeln('*');

Только вот мне не оч. нравится что ты в цикле считываешь не проверяя конец файла, ну да ладно.

[777pro777]

спасибо за помощь ))))а можно еще одну проблему решить как мне посчитать сколько парней ?и как вычислить что их больше к примеру на 2 или т.п?