Kod: Zaznacz cały
program zad_2;
uses crt;
var
plik,nowy,r:text;
znak,F:string;
begin
assign(plik,'dane.txt');
reset(plik);
assign(nowy,'dane2.txt');
rewrite(nowy);
while not eof(plik) do begin
while not eoln(plik) do begin
read(plik, znak);
if ((znak<>' ') and (znak='a')) then writeln(nowy, znak);
end;
end;
readln(plik);
readln(nowy);
close(plik);
close(nowy);
{wypisanie zawartosci dane2.txt}
assign(r,'dane2.txt');
reset(r);
readln(r, F);
writeln(F);
close(r);
readln
end.