rekurWypSpoil

program spoil;
uses crt;
var
ilS : integer;
przed,po : string;
t : text;
procedure rekD(il : integer);
begin
write(t,przed);if il>0 then rekD(il-1);write(t,po);
end;
begin clrscr;
write('Ilosc spoilerow: ');readln(ilS);write('Tekst przed: ');readln(przed);write('Tekst po: ');read(po);
assign(t,'spoiler.txt');rewrite(t);rekD(ilS);close(t);
end.