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

[Lalalako3]

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

var
 x:char;
 k,h:integer;
Begin 
  writeln('Введите первый символ');
  read(x);
  k:=ord(x);
  h:=ord('A')-ord('a');
  While x<>'.' do
   If (x>='a') and (x<='z') then 
            x:=chr(k+h);        
   writeln('x=',x)
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[grandmixer]

var
 x:char;
 s:string;
 k,h:integer;
Begin
  writeln('Вводите текст');
  While x<>'.' do
        begin
        read(x);
        k:=ord(x);
        if (k>=192) and (k<=223) then x:=chr(k+32);
        s:=s+x;
        end;
        writeln(s);
End.

[Lalalako3]

Спасибо, но мне сказали без использования массива сделать, вот я не знаю как же это вывести

[Mad_Cat]

    var
 x:string;
 i,k,h:integer;
Begin
  writeln('Text');
  readln(X);
  h:=ord('A')-ord('a');
 i:=1;
  While x[i]<>'.' do begin
   k:=ord(x[i]);
   If (x[i]>='a') and (x[i]<='z') then
            x[i]:=chr(k+h);
   inc(i);
  end;
  writeln(x);
End.

[Lalalako3]

в конце он не выводит заглавные буквы, а какой либо знак, так же как в моем первом варианте задачи(

[Lalalako3]

Точнее он выводит только первую заглавную, а остальные нет