Найти ошибку

[Uvaroff]

Шото я не доганяю....Пишет что файл не открыт для записи...
Program Naselenie;
uses crt;
var
f:text;
surname:string[25];
year:integer;
i,s:byte;

begin
clrscr;
assign(f,'Naselenie.txt');
rewrite(f);
for i:=1 to 5 do
begin
writeln(i);
writeln('Familia:'); readln(f,surname);
writeln('God:');readln(f,year);
writeln(f);
end;
clrscr;
for i:=1 to 5 do
begin
write(i,surname:6,year:6)
end;
writeln;writeln;
writeln('Jyteli kotorye rodilis do 1973 goda:');
s:=0;
for i:=1 to 5 do
begin
read(f);
if year<1973 then
begin
writeln(f,surname);
s:=s+1;
end;
end;
writeln(s,' chelovek');
close(f);
readln;
end.

[Voody]

assign(f,'Naselenie.txt');
rewrite(f);

открыли файл для записи!

readln(f,surname);

читаем из файла!

[Uvaroff]

Ну я ж так и делаю!!!!!!!

[Alex_FF]

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

Шото я не доганяю....Пишет что файл не открыт для записи...

Rewrite открывает файл для записи, а вы пытаетесь считать данные из этого файла:
for i:=1 to 5 do
begin
writeln(i);
writeln('Familia:'); readln(f,surname);
writeln('God:');readln(f,year);
writeln(f);
end;

Для того, чтобы открыть файл для чтения нужно использовать Reset