Co zrobic, aby przy dluzszym pliku mozna bylo jakos przewinac ekran, lub chocby dzielilo na czesci wyswietlany tekst?
program pliczek;
uses crt;
var plik: text;
f, s: string;
begin
clrscr;
writeln ('wskaz plik do odczytania c:\nazwa.txt');
readln (f);
assign (plik, f);
reset (plik);
while not eof(plik) do
begin
readln (plik, s);
writeln (s);
end;
close (plik);
readkey;
end.