Pascal - segnalazione

scusate ragazzi , mentre seguivo il corso pascal nella sezione dedicata al repeat until c'è quest'esercizio

Program Esempio2;
Uses Crt,WinDos;
Var nome1,nome2,stringa:string;
file1,file2:text;

begin
clrscr;
write(‘Inserire il nome di un file: ‘);
readln(nome1);
write(‘Inserire il nome del file copia: ‘);
readln(nome2);
Assign(file1,nome1);
Assign(file2,nome2);
Reset(file1);
Rewrite(file2);
repeat
readln(file1,stringa);
writeln(file2,stringa);
until eof(file1);
Close(file1);
Close(file2);
writeln(‘Copia completata!’);
readln
end.

In pratica se lo copio ed incollo nel compilatore dev pascal mi da sempre un errore , ho provato ad incollarlo perchè dopo una serie interminabile di tentativi mi dava sempre errore , cmq sempre riguardo alla sezione manca la descrizione di cosa serve il comando readln file1,stringa. Spero possiate aiutarmi. Mi spiego meglio , copio proprio l'esercizio del corso e mi da errore.

prova a togliere la scritta windos dopo uses crt (probabilmente non hai quella libreria) e poi metti il carattere ' al posto di quello che c'è nell'esempio che è ‘ (se ci fai caso son diversi ' e ‘)

in pratica viene cosi:

(se copi e incolli questo dovrebbe funzionare tutto
Program Esempio2;
Uses Crt;
Var nome1,nome2,stringa:string;
file1,file2:text;

begin
clrscr;
write('Inserire il nome di un file: ');
readln(nome1);
write('Inserire il nome del file copia: ');
readln(nome2);
Assign(file1,nome1);
Assign(file2,nome2);
Reset(file1);
Rewrite(file2);
repeat
readln(file1,stringa);
writeln(file2,stringa);
until eof(file1);
Close(file1);
Close(file2);
writeln('Copia completata!');
readln
end.

Sono tornato ora a casa , grazie per il consiglio , ma come faccio ad avere una libreria windos e che sarebbe cambiato ??? Cmq grazie ancora.

boh.. sinceramente non so dirti a cosa serve... XD

Grazie lo stesso XD