СРОЧНО ХЭЛП!!!

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type Zodiak=record
name,surname:string[50];
znak:string[20];
date:array[1..3]of integer;
end;

mz=array[1..20]of Zodiak;
var m:mz;
i,n:integer;
ss:string;
f:text ;
nam: String;

function vozrast(d:zodiak):integer;
begin
vozrast:=d.date[1]+d.date[2]*31+d.date[3]*365;
end;

procedure Sort(var mm:mz; n:integer);
var i,j:integer;
b:zodiak;

begin
for i:=1 to n do
for j:=1 to n-1 do if vozrast(mm[j])>vozrast(mm[j+1]) then
begin
b:=mm[j];
mm[j]:=mm[j+1];
mm[j+1]:=b;
end;
end;

begin
write('Kol-Bo Chelovek -> ');
readln(n);
for i:=1 to n do
with m[i] do
begin

writeln('Vvedite dannie ',i,'o cheloveke');
write('Imya ');
readln(name);
write('Familiya ');
readln(surname);
write('data rojdeniya ');
readln(date[1],date[2],date[3]);
write('Znak zadiaka ');
readln(znak);
end;
sort(m,n);

write('Vvedite znak zadiaka dlya poiska: ');
readln(ss);

for i:=1 to n do if m[i].znak=ss then
writeln(m[i].name,' ',m[i].surname,' ',m[i].date[1],' ',m[i].date[2],' ',m[i].date[3]);
Writeln('Vvedite imya faila: '); Readln(nam);
Assign(f,nam+'.txt');
Rewrite(f);
Close (f);
readln;
end.

Вот программа мне нужно что бы сохраняло в файл все что я напишу! У меня создает фалй но не сохраняет

KIRUHANSKiY

29.03.2013, 18:28

ответы — 4

KIRUHANSKiY29.03.2013, 18:28#

ап
stefuny-29.03.2013, 20:05#

vg traxe пиши
~~SamFlynn~~29.03.2013, 20:10#

В принципе можешь тут почитать, program Project2
~~Switchfoot~~29.03.2013, 21:58#

качай