Anonymní profil Woody – Programujte.com

program Pocet;

uses crt;

var s: text;
zn: char;
A: array [' '..'z'] of integer;

begin
clrscr;
assign(s,'pokus.txt');
reset(s);
read (s,zn);

while not eof(s) do;
begin;
A[zn]:= A[zn]+1;
end;
writeln(zn,' ',A[zn]);
close(s);
end.

tak jsem to dostal do tohohle stavu kdy to jde skompilovat ale prakticky okamzite se to vypne coz je asi dane tim ze tam je ten zmineny nekonecny cyklus, napadlo me jeste zkusit pouzit repeat until ale priznam se ze nevim presne kam s nim.

Jde o to že program má použít pole pro výpis znaků,  tj místo číselného indexu použít jako index znak abecedy a výsledek by měl vypadat cca tak že:

"V souboru se nacházejí tyto znaky:

A 2

B 10

C 3

atd s tím že čísloza písmenem značí kolikrát se daný znak v souboru nachází, skompilovat mi to nejde, s tím že hlásí chybu v deklaraci pole.