Oto kod:
Kod: Zaznacz cały
program pliki_tekstowe;
uses crt;
var nazwa: string;
i: byte;
procedure pisz(nazwa: string);
var plik: text;
linia: string[77];
i: byte;
begin
assign(plik,nazwa);
reset(plik);
while not eof(plik) do
begin
for i:=0 to 21 do
begin
readln(plik,linia);
{ rysuje zawartosc w ramce }
writeln(chr(186):1, linia:-1, chr(186):78-length(linia));
if eof(plik) then exit;
end;
if not eof(plik) then
begin
textcolor(lightred);
write(chr(186),' >> ');
write('Nacisnij enter aby przewinac');
write(' << ',chr(186));
readln;
textcolor(7);
end;
end;
close(plik);
end;
begin
write('Podaj nazwe pliku, ktorego zawartosc mam wczytac: ');
readln(nazwa);
writeln('Zawartosc pliku ',nazwa,':');
write(chr(201)); for i:=0 to 76 do write(chr(205)); writeln(chr(187));
pisz(nazwa);
write(chr(200)); for i:=0 to 76 do write(chr(205)); writeln(chr(188));
writeln('Koniec pliku.');
readln;
end.