προβλημα pascal με .txt

[Calculate13]

γεια

 

εχω ενα προβλημα με την pascal

 

θελω να φτιαξω ενα προγραμμα που να διαβαζει εναν συνδεσμο ( π.χ https://www.google.gr/ ) και θα δημιουργεί ενα αρχείο .txt και θα βαζει μεσα σε αυτο 200 φορες αυτο που διαβασε και για καθε ενα θα βαζει διπλα εναν αριθμο

 

π.χ

 

https://www.google.gr/1

 

https://www.google.gr/2

 

https://www.google.gr/3

 

.....

 

μεχρι το 200

 

 

εγραψα κατι σε pascal αλλα μου εμφανιζει μονο το τελευταιο αριθμο

 

https://www.google.gr/200

 

 

να ο κωδικας

 

 

--------

 

 

 

Program url;
Var F : text;
i : integer;
a : STRING[100];
begin
write('URL: ');
readln(a);
Assign (F,'');
Rewrite (f);
Writeln (f,'');
Close (f);
Assign (F,'Test.txt');
for i := 1 to 200 do
begin
rewrite (f);
writeln (f,a,i);
close (f);
end;
write('gia eksodo pata enter');
readln();
end.

 

-----------

[bird]

Μήπως να βγάλεις το rewrite(f) έξω από το loop (πρίν το for δλδ)...

 

edit:

Επίσης αυτό το κομάτι κώδικα γιατί το βάζεις;

Assign (F,'');
Rewrite (f);
Writeln (f,'');
Close (f);

[Calculate13]

τώρα που έβγαλα το rewrite(f) απέξω μου εμφανίζει στο .txt μόνο το πρώτο δλδ  https://www.google.gr/1

[bird]

Βγάλε και το close (f); έξω από το loop (μετά το end)

[Calculate13]

Ευχαριστώωω  δουλεύει !!!