FPS

Sveiki, turiu problema su pascaliu mokausi pagal grigo knyga bet man kazkodel kai reikia naudot funkcija assign faila nuskaito ir nera jokiu klaidu bet kaip turetu perrasyt y kita faila duomenis atsidarius txt failiuka jis yra tuscias cia programos pavyzdys.

program trysbylos;
 var prad,
     pirma, antra: text;
     x, y: integer;
begin
 assign(prad, 'd:\duomenys.txt'); reset(prad);
 assign(pirma, 'd:\pirma.txt'); rewrite(pirma);
 assign(antra, 'd:\antra.txt'); rewrite(antra);
 read(prad, x); writeln(pirma, x);
 read(prad, x, y);  writeln(antra, x, y:10);
end.

kur cia klaida?

Pabaigoj reik uzdaryt failus su

close(pirma); close(antra); close(prad);

Pabaigoj reik uzdaryt failus su

close(pirma); close(antra); close(prad);

Ačiū padėjo ;)