[PASCAL] Lettura e scrittura di file di testo

[«¿®=Manoet=®¿»]

salve a tutti
dovendo prossimamente partecipare alla fase regionale delle olimpiadi d'informatica, ho guardato un po' gli esercizi degli anni passati.
al di là del dover creare l'algoritmo matematico, ho un problema:
come creare un programma che sappia leggere e scrivere file di testo?
ho cercato info su internet, ma ho trovato varie varianti, ma nessuna sembra funzionare con il dev-pascal....
quindi ecco che mi trovo a chiedervi: come creare un programma capace di creare, scrivere e leggere un file?
(se possibile fare un esempio, ve ne sarei grato)

[pallinopinco]

Che tipo di file? Testuali o binari?

[«¿®=Manoet=®¿»]

file di testo

[pallinopinco]

Puoi dichiarare una variabile di tipo TextFile ed utilizzarla mediante le funzioni: Assign, Rewrite, Reset, Append, Write/Writeln, Read/Readln, Close, etc.

Nei manuali del Turbo Pascal trovi tutte le informazioni del caso.

[«¿®=Manoet=®¿»]

sbagliavo ad usare " al posto di '
solo che ora come output da solo un file bianco...

program rw1;
uses crt;
var input, output: TextFile;
linea:string;

begin
clrscr;
assign(input,'input.txt');
assign(output,'output.txt');
rewrite(output);
while not eof(input) do
begin
readln(input,linea);
writeln(output,linea)
end;
close(output)
end.

ho provato anche questo

...
while not eof(input) do
begin
readln(input,linea);
writeln(linea)
end;
readln
end.

ma il programma si esegue e si chiude subito...
dove sbaglio?

[pallinopinco]

Se non apri il file di input con una reset hai poco da leggere...

[«¿®=Manoet=®¿»]

ok, ora funziona
grazie mille

EDIT: scusate, mi sono imbattuto in un altro problema
mettiamo caso che avessi nel file input.txt questo:

1 2 3
45 6

e abbia bisogno che ogni numero, sia di uno o due cifre, venga caricato in un array di tipo integer
che fare?
(scusatemi, ma non sono riuscito a trovare alcuna guida abbastanza esauriente sull'argomento)

[«¿®=Manoet=®¿»]

up

[king64]

Leggendo il file come un insieme di righe , devi tradurre in Pascal seguire il seguente algoritmo:

1 leggi la riga
2 dalla riga costruisci una sottostringa finchè non incontri lo spazio o la terminazione della 
riga
3 converti la sottostringa in un numero
4 se il numero ottenuto è minore di 100 lo memorizzi nell'array
5 se la riga non  è statta letta tutta vai al punto 2
6 se ci sono altre righe vai al punto 1
7 termina

Saluti

[«¿®=Manoet=®¿»]

uhm.... vedrò cosa riesco a fare.... perchè dovrei inserire il numero in array solo se minore di 100?
cmq grazie