"První písmeno abecedy,které se ve větě vyskytuje" – Pascal – Fórum – Programujte.com

Zdarec potrřeboval bych poradit..delam program a jedni z ukolu je vypiš "První písmeno abecedy,které se ve větě vyskytuje" dostal sem se k tomu ze mne program vypiše které písmena jsou ve větě práve 1x...ale ted nevim jak zjistit a vypsat, které z nich se nachazi v abecede jako prvni..dik za radu.

program ROCNIKOVKA;
uses crt;
var
veta:string[250];
a:array['A'..'Z'] of integer;
z:char;
pocetslov,sest,mezera:integer;
i3,nejdelsi,delka,nejzacatek,nejkonec,zacatek,konec,i:integer;

begin
textcolor(yellow);
write('ROCNIKOVA PRACE-Vavclav Lezak');
writeln;
writeln;
textcolor(11);
zacatek:=1;
nejdelsi:=0;
delka:=0;
pocetslov:=0;
sest:=0;


write('Zadej vetu zakoncenou teckou:');
readln(veta);
writeln;
textcolor(yellow);
write('Vypis:');
writeln;
writeln;
textcolor(11);
for i:=1 to length(veta) do
begin
if (veta[i]=' ') and (veta[i+1]<>' ') then pocetslov:=pocetslov+1;
end;
writeln('Veta obsahuje:',pocetslov+1,'slov(a).');
writeln;
for i3:=1 to length(veta) do begin
if (veta[i3]=' ') or (i3=length(veta)) then
begin
konec:=i3-1;
delka:=i3-zacatek;
if delka>nejdelsi then begin
nejdelsi:=delka;
nejzacatek:=zacatek;
nejkonec:=konec;
end;
zacatek:=i3+1;
end;
end;
writeln('nejdelsi slovo:');
for i3:=nejzacatek to nejkonec do begin
write(veta[i3]);
end;
writeln;
writeln;
writeln('Velikost nejdelsiho slova je:',nejdelsi,'znaku.');
writeln;

begin
for z:='A' to 'Z' do a[z]:=0;
end;
for i:=1 to length(veta) do
begin
z:=upcase (veta[i]);
if z in ['A'..'Z'] then a[z]:=a[z]+1;
end;
for z:='A' to 'Z' do
begin
if a[z]=2 then writeln('Pismeno ',z,'je ve vete 2x');
end;
for z:='A' to 'Z' do
begin
if (a[z]<2) and (a[z]>0) then writeln('Prvni pismeno abecedy je:',z);
end;

writeln;
for i:=1 to length(veta) do
begin
if (veta[i]<>' ') and (veta[i]<>'.') then mezera:=mezera+1
else begin
if mezera>6 then sest:=sest+1;
mezera:=0;
end;
end;
writeln('Ve vete je: ',sest,' slov delsich nez 6 znaku.');

readln;
end.

To vasekk :
Asis jen nepochopil zadání.
Já ho pochopil takto:

Mějme například větu:

"Jelenovi pivo nelej."

V této větě je prvním písmenem abecedy písmeno E, protože ani A ani B ani C ani D tam není.
Jinak řečeno jde o jednoduchý algoritmus hledání minima (který znak z věty je v abecedě nejdřív=nejmenší).

Jo pochopil jsem ho uplně stejně...ale bylo mě řečeno že to mám udělat vypsáním prvního nenulového znaku z a[z]..

vypsáním prvního nenulového znaku z a[z]... to moc nechápu, asi mi něco uniká.

Ale další možnost jak to udělat by byla projít abecedu od A do Z a u každého znaku testovat, jestli se ve větě vyskytuje. Pokud ano, tjadáá, máš svůj nejmenší znak.

if (a[z]<2) and (a[z]>0) then writeln('Prvni pismeno abecedy je:',z);

if a[z] > 0 then

begin

    writeln(....);

    break;

end;

Funguje to ;) ..dik moc,vzdycky staci tak malo :D