Пожалйста помогите найти недочет или ошибку...
Текст задания лабораторной работы:
Имеется список студентов из 10 человек (фамилия, дата рождения). Выбрать из данного списка студентов, родившихся в заданное время года.
Текст первой программы :
program lab10а;
uses
crt;
const n=10;
type student=record
fam:string[20];
meciaz:1..12;
god:1970..1990;
end;
var
r:array[1..n] of student;
i:integer;
f:file of student;
g:text;
begin
clrscr;
assign(G,'l.txt');
reset(G);
assign(F,'c.dat');
rewrite(F);
for i:=1 to n do
with r[i] do
begin
readln(g,fam,meciaz,god);
writeln(fam,' ':11-LENGTH(fam),meciaz:3,god:6);
write(f,r[i]);
end;
close(f);
close(g);
readln;
end.
Текст второй программы :
program lab10b;
uses
crt;
const n=10;
type student=record
fam:string[20];
meciaz:1..12;
god:1970..1990;
end;
var
r:array[1..n] of student;
i:integer;
f:file of student;
g:text;
begin
clrscr;
assign(f,'c.dat');
reset(f);
assign(g,'lab10rez.txt');
rewrite(g);
writeln(g,'dannie');
writeln(G,'spisok:');
writeln(G,' fam meciaz god :');
for i:=1 to n do
BEGIN
read(f,r[i]);
with r[i] do
begin
writeln(fam,' ':11-LENGTH(fam),meciaz:3,god:6);
writeln(g,fam,' ':11-LENGTH(fam),meciaz:3,god:6);
end;
end;
writeln;
writeln(g);
writeln('spisok studentov:');
writeln(g,'spisok studentov:');
for i:=1 to n do
with r[i] do
begin
if meciaz in [3..5] then
begin
writeln(fam,' ':11-LENGTH(fam),meciaz:3,god:6);
writeln(g,fam,' ':11-LENGTH(fam),meciaz:3,god:6);
end;
end;
close(f);
close(g);
readln;
end.
Afrodita, можно посмотреть на файл L.TXT? Есть подозрение, что его чтение организовано неправильно.