Hehe... ako zadatak glasi "Ucitaj 10000 znakova sa tastature" to znaci da ce podaci morati da dodju sa tastature :)
Ako hoces da ucitavas podatke iz fajla, onda je to jos lakse... recimo da hoces da uzmes 10000 karaktera... uradis sledece:
Code:
var
C: PChar;
F: File;
begin
Assign(F, 'fsdfs');
Reset(F, 1);
GetMem(C, 10000);
BlockRead(F, C^, 10000);
Close(F);
// Uradis nesto sa C
FreeMem(C, 10000);
end;