Simbolu virkne. Programmēšanas valoda Pascal

Programma nosaka:
1. Kopējo zīmju skaitu virknē;
2. Tukšumzīmju skaitu virknē;
3. Frāžu skaitu (to skaitā atsevišķu zīmju, kuras nav tukšumzīmes) virknē;
4. Garāko vārdu vai frāzi (uzrāda vairākas frāzes, ja to garumi ir vienādi) virknē;
5. Kuras zīmes visbiežāk atkārtojas (tiek uzrādītas vairākas, ja to atkārtošanās daudzums ir vienāds un atkārtojas vairāk kā vienu reizi);
6. Unikālo zīmju skaits.

Piebilde:
• Turpmāk sekos programmas kods ar paskaidrojumiem formas iekavās – {...}.
• Komanda „write” un „writeln” nodrošina teksta izvadīšanu uz ekrāna.
• Komanda „read” un „readln” nodrošina lietotāja ievadītās informācijas nolasīšanu.
• Komanda „textcolor” neietekmē programmas darbību. Ar šīs komandas palīdzību tiek nodrošināts izvadītā teksta noformējums.

program virkne; {Programmas nosaukums.}
uses crt; {Tiek pieslēgta crt bibliotēka, kura nodrošina mums nepieciešamo komandu lietošanu.}
var a,a2,b,b2,b3,c,c1,c2,d1,garv,pedv,tekv,vards,teks,teks2,gars:string; i,ii,s,vardi,v,atsks,n,n2:integer; {Tiek nodefinēti mainīgie, kuri turpmāk tiks izmantoti programmā.}
begin {Programma sākas.}
clrscr; {Tiek notīrīts ekrāns.}
s:=0;
textcolor(7);
writeln('Ievadiet simbolu virkni');
readln(a);
b:=a;
b2:=a;
b3:=a;

{1.Nosaka kopējo zīmju skaitu virknē.}
n:=length(a); {Nosaka ievadītās virknes garumu.}
…