задача в Паскале

[kos19]

Здравствуйте! Помогите пожалуйста.
Пусть задан текст, состоящий из слов. Под словом понимаеться последовательность литер, не содержащая пробелов и знаков препинания. Если слово начинается с латинской строчной буквы, то заменить её на прописную. Нельзя использовать массивы и строки(
не могу понять как можно сделать, что бы проверял только первую букву

uses crt;
var c:char;
begin
writeln ('vvedite text');
repeat
c:=readkey;
read (c);
until (c='!') or (c=' ') or (c=',') or (c='.');
for c:=1 to '!' do
if (c=' ') or (c='.') or (c=',') then begin
if ((c+1)>='A') and ((c+1)<='Z') then begin
 case (c+1) of
 'A': (c+1):='a';
 'B': (c+1):='b';
 'C': (c+1):='c';
 'D': (c+1):='d';
 'E': (c+1):='e';
 'F': (c+1):='f';
 'G': (c+1):='g';
 'H': (c+1):='h';
 'I': (c+1):='i';
 'J': (c+1):='j';
 'K': (c+1):='k';
 'L': (c+1):='l';
 'M': (c+1):='m';
 'N': (c+1):='n';
 'O': (c+1):='o';
 'P': (c+1):='p';
 'Q': (c+1):='q';
 'R': (c+1):='r';
 'S': (c+1):='s';
 'T': (c+1):='t';
 'U': (c+1):='u';
 'V': (c+1):='v';
 'W': (c+1):='w';
 'X': (c+1):='x';
 'Y': (c+1):='y';
 'Z': (c+1):='z';
 end;
 end;
 write (c);
 readln;
end.

мб с boolean как-то...

[s-andriano]

Исходя из формулировки задания, не совсем понятно, как представлен текст. На мой взгляд, он может быть либо в строке либо в массиве, но и то и другое противоречит условию.

Будем считать, что символы вводятся по одному с клавиатуры, при необходимости преобразуются и сразу выводятся на печать.

Необходимо ввести признак (boolean), что предыдущий символ был разделителем - пробелом или знаком препинания.
Перед началом обработки присваиваем TRUE.
При получении очередного символа:
- если он разделитель - признак := TRUE, печатаем символ,
- если он другой символ: если признак = TRUE, анализируем и выводим, если признак = FALSE, выводим без анализа. После чего признак := FALSE.

Анализ заключается в том, чтобы строчный латинский символ заменить на прописной, а никакие другие не менять.

[baster128]

Без массивов если можно множества использовать.

[kos19]

ну я решил проблему без boolean, но проблема в том что выводится после пробела или точки или запятой большая буква и сразу маленькая

uses crt;
var c,c1:char;
begin
writeln ('vvedite text');
repeat
c1:=c;
c:=readkey;
write(c);
if (c1=' ') or (c1=',') or (c1='.') then begin
 case c of
 'A': c:='a';
 'B': c:='b';
 'C': c:='c';
 'D': c:='d';
 'E': c:='e';
 'F': c:='f';
 'G': c:='g';
 'H': c:='h';
 'I': c:='i';
 'J': c:='j';
 'K': c:='k';
 'L': c:='l';
 'M': c:='m';
 'N': c:='n';
 'O': c:='o';
 'P': c:='p';
 'Q': c:='q';
 'R': c:='r';
 'S': c:='s';
 'T': c:='t';
 'U': c:='u';
 'V': c:='v';
 'W': c:='w';
 'X': c:='x';
 'Y': c:='y';
 'Z': c:='z';
 end;
 write (c);
 end;
 until (c='!');
end.

надо как то убрать большу

[BDA]

case c of
 'A'..'Z': c:=chr(ord(c)+32);
end;

Упс, плохо прочел ваш пост
Ну по крайней мере сократил ваш код

[kos19]

спасибо, за сокращение, тоже пригодиться=) но вот вывод до сих пор не могу отредактировать

[kos19]

всё, решил проблему сам
достаточно было написать один раз write в конце)