Oto całe zadanie:
program read;
uses crt;
var
plik_we : text;
plik_wy : text;
nazwapliku,bufor : string;
begin
clrscr;
readln(nazwapliku);
{$I-}
assign (plik_we,nazwapliku);
reset (plik_we);
if ioresult=** then writeln (********) else
while not eof(plik_we) do
begin
read (plik_we, bufor);
if ioresult=** then writeln (***) else
assign(plik_wy,'output.txt');
rewrite(plik_wy);
writeln(bufor);
writeln(plik_wy, bufor);
if ioresult=** then writeln (********) else
repeat until keypressed
end;
close(plik_we);
close(plik_wy);
end.
---W gwiazdki wpisać numer (kodu wyjscia/wejscia) i co on robi (w nawiasie
co robi) np: if ioresult=0 then writeln ('Operacja zakonczona sukcesem')
else---
--owszem znalazłem spis poszczególnych błędów ale nie wiem jakie błędy wystąpią w tym zadaniu---
---jeżeli ktoś może mi pomóc z tym zadaniem byłbym bardzo wdzięczny---