Uloha 7

[BosSorak]

7. Napíšte program, ktorý od používateľa načíta vetu ukončenú bodkou. Spočíta počet jednotlivých písmen vo vete a vypíše prehľadnú tabuľku.
Mohli by ste mi pomôct.Ďakujem .

[admin]

{ uprav, okomentuj, nastuduj si co nevies(ordinalna hodnota znaku, eoln) a potom znovu okomentuj}

uses crt;
var a:array['A'..'Z']of byte;
i,c:char;
ine:byte;
begin
clrscr;
for i:='A' to 'Z' do a[i]:=0;
ine:=0;
while not eoln do
begin
read(c);
c:=upcase(c);
if c in ['A'..'Z'] then inc(a[c])
else inc(ine);
end;
for i:='A' to 'M' do
begin
write(i,' ',a[i]:3);
writeln(chr(ord(i)-ord('A')+1+ord('M')):3,' ',a[i]:3);
end;
writeln('Ine znaky: ',ine:3);
readln;
readln;
end.