odTylu

             {#################################################
              # Aby zmienic kolejnosc poszczegolnych wierszy, #
              # nalezy podac nazwe lub sciezke do pliku,      #
              # a nastepnie odpalic odTylu.exe.               #
              # Program sam stwierdzi, czy taki plik          #
              # istnieje, a w razie potrzeby bedziesz mogl    #
              # utworzyc plik dzieki niemu.                   #
              # autor: asmodeus94                             #
              #################################################}
program odTylu;
uses crt,dos;
var t : text;
linia,z,zs,podp : string;
pusty,x,byl : byte;
a,ostatnie,wybor : integer;
tab : array [1..5000] of string;
label pocz;
begin pocz: clrscr;
writeln('Podaj nazwe pliku (ten sam katalog) lub pelna sciezke: ');REPEAT write('>');readln(z);UNTIL (z<>'')AND(z<>' ');
if fSearch(z,'') = '' then begin
write('Plik ',z,' nie istnieje...');readkey;clrscr;
textbackground(7);textcolor(black);writeln(z);textcolor(7);textbackground(0);
writeln('Jezeli chcesz podac inna nazwe / sciezke, wpisz 1');
writeln('Jezeli chcesz utworzyc plik o tej nazwie / w danej lokaliazacji, wpisz 2');
REPEAT write('>');readln(wybor);UNTIL (wybor=1)OR(wybor=2);
if wybor=1 then goto pocz;
assign(t,z);
rewrite(t);
close(t);
writeln('Plik zostal utworzony.');
textbackground(7);
textcolor(red);write('Teraz mozesz wkleic dane do pliku.');textcolor(7);textbackground(0);
readkey;clrscr;end;
writeln('Tekst na wejsciu (nacisnij Enter): ');readkey;
assign(t,z);
reset(t);
pusty:=1;ostatnie:=0;
REPEAT
readln(t,linia);
if linia<>'' then pusty:=0;
ostatnie:=ostatnie+1;
tab[ostatnie]:=linia;
writeln(linia);
UNTIL eof(t);
close(t);
if pusty=1 then begin textbackground(7);textcolor(red);write('Plik ',z,' jest pusty');readkey;halt;end;
writeln('Nazwa pliku wyjsciowego (s - nazwa standardowa): ');REPEAT readln(zs);UNTIL zs<>'';
if zs = 's' then zs:='doTylu.txt';clrscr;byl:=0;
writeln('Tekst na wyjsciu: ');
assign(t,zs);
rewrite(t);
for a:=ostatnie downto 1 do begin
    if tab[a] <> '' then byl:=1;
    if byl = 1 then begin write(t,tab[a]);writeln(tab[a]);if a<>1 then writeln(t,'');
    end;
end;
x:=0;byl:=0;
REPEAT
x:=x+1;
if zs[x]='\' then byl:=1;
UNTIL (x=length(zs))OR(byl=1);
if byl=0 then podp:='w aktualnym katalogu' ELSE podp:='w nastepujacej lokalizacji';
textbackground(7);textcolor(red);write('Zapisano ' ,podp,': ',zs);
close(t);
readkey; end.