while (jest następny wiersz) do
Funkcja getline;
while (jest następny znak w wierszu) do
if (znak jest literą) then Funkcja upperchar;
end;
end; { end while jest znak }
end; { end while jest wiersz )
Funkcja putline; ( zapisz zmodyfikowany wiersz }
{ wczytuj kolejny wiersz }
{ zamień na dużą } { podwyższ }
while (jest następny wiersz) do
Funkcja getline;
while (jest następny znak w wierszu) do
if (znak jest literą) then
if (pierwsza litera słowa) then
Funkcja upperchar;{ podwyższ } else { następna litera słowa }
Funkcja lowerchar;{ obniż )
end;
end;
end; { end while jest znak }
{ end while jest wiersz }
{ zapisz zmodyfikowany wiersz I
{ wczytuj kolejny wiersz )
{ zmień wielkość }
end;
Funkcja putline;
{ wczytywanie kolejnych wierszy } while (jest następny wiersz) do
Funkcja getline;
( poszukiwanie pierwszego niepustego znaku w wierszu } while (jest następny znak w wierszu)
do { szukaj pierwszego niepustego znaku }
if (znak niepusty) then
zapamiętaj indeks znaku;
end;
end;
{ zmiana wielkości liter } if (wiersz nie jest pusty) then
while (jest następny znak w wierszu)
do { zmień wielkość }
if (znak jest literą) then
if (pierwsza litera wiersza) then
Funkcja upperchar; { podwyższ }
{ wczytuj kolejny wiersz }
else
{ następna litera wiersza ) Funkcja lowerchar; { obniż )
end;
end;
end;
end;
end;
Funkcja putline;
( end while jest znak }
{ if wiersz niepusty }
{ end while jest wiersz }
( zapisz zmodyfikowany wiersz )
-o