Mam tutaj przy sobie kod pewnego programiku...:
program zliczanie;
uses crt;
var nazwa: string;
a : integer;
znak:char;
liczenie:array['A'.. 'z'] of word;
plik:text;
begin
clrscr;
writeln('Podaj nazwe pliku z danymi: ');
readln(nazwa);
assign(plik,nazwa);
reset(plik);
repeat read(plik,znak);
liczenie[znak]:=liczenie[znak]+1;
until eof(plik);
a:=1;
for Znak := 'A' to 'z' do
begin;
if liczenie[znak]>0 then
writeln(znak,' ',liczenie[Znak]);
end;
readln;
end.
Mianowicie, problem polega na tym, iż w czasie kompilacji tego kodu we Free Pascalu, mimo, że FP mówi, że wszystko dobrze się zrobiło, to programik działa aż do wciśnięcia entera... Później sam się wyłącza. Wszystko było dobrze, kiedy kompilowałem to w Turbo Pascalu. Czytałem "Porting Turbo Pascal to Free Pascal" (http://www.freepascal.org/port.var), ale mimo to nie wiem, gdzie leży problem. Może ktoś wie? :-)