Программа и создание файла, содержащей информацию

[Артемиц]

Здравствуйте, задание вот тут:
7 лаб-ая.jpg
Всё застопоривается на создании файла. помимо pas в папке с ним должнен появиться файл формата txt.

Вот прилагаю 2 кусочка, может кто-нибудь что-то поймёт и подскажет :c
1:

type info = record
k: integer;
ves: real;
end;

var n,i: integer;
f: file of info;
puti: string;
tmp: info;


begin;
write('Vvedite puti k failu dlea zapisi: '); readln(puti);
assign(f,puti); rewrite(f);
write('Kolichestvo passajirov s bagajom: '); readln(n);
writeln;

for i := 1 to n do
begin
writeln('Passajir nr. ',i);
write('Kolichestvo veschei: '); readln(tmp.k);
write('Ves (kg): '); readln(tmp.ves);
writeln;
write(f,tmp);
end;

close(f);
writeln('Fail zapisan');
readln; end.

2:

type info = record
k: integer;
ves: real;
end;

const maxn = 100;

var f: file of info;
puti: string;
tmp: info;
n,i,k: integer;
sr: real;


begin;
write('Puti k failu dlea chtenia: '); readln(puti);
assign(f,puti); {$I-} reset(f); {$I+}
if IOResult <> 0 then
begin
writeln('Fail ne suschestvuet!');
readln;
halt;
end;

n := filesize(f);
sr := 0;
for i := 1 to n do
begin
read(f,tmp);
sr := sr + tmp.k;
end;
sr := sr/n;

reset(f);
k := 0;
for i := 1 to n do
begin
read(f,tmp);
if tmp.k > sr then
inc(k);
end;

writeln(k,' passajirov imeut kolichestvo veschei bolishe srednego');
readln; end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

первая программа выглядит вполне рабочей.
Создаёт файл по указанному Вами полному пути (и указанному в пути имени).

должнен появиться файл формата txt.

Расширение у файла будет такое, какое Вы укажите при запросе имени файла.
Но нужно иметь в виду, что файл у Вас программе типизированный == БИНАРНЫЙ == двоичный. Никакого отношения к текстовым файлам типизированные файлы НЕ имеют!

[Артемиц]

Спасибо, постараюсь разобраться.