home *** CD-ROM | disk | FTP | other *** search
- PROCEDURE main
- VAR
- blank : string = " "
- myStr : string
- tFile : text = "TEST02.TXT"
- i : byte;
- l : byte;
- ENDVAR
-
- ConsoleClear; ConsoleShow;
- WRITE("Zadejte libovoln² °et∞zec:");
- READLN(myStr);
-
- WRITELN("V²stup bude proveden do ");
- WRITELN("textoveho souboru TEST02.TXT");
- IF (rewrite(tFile) = 0)
- l := length(myStr)
- FOR i := 1 TO l
- WRITELN(tFile, copy(blank, 1, l - i + 1),
- copy(myStr, l - i + 1, l),
- copy(myStr, 1, i))
- ENDFOR
- Close(tFile);
- ENDIF
- ENDPROC
-