строки, нужна проверка Опции

[Athen]

Задача: дан текст из строчных русских букв, за которым следует точка. Напечатать этот текст заглавными русскими буквами.

Сделала прогу, но почему-то после буквы "п" начинает писать иероглифы... по таблице ASCII проверяла, не могу понять в чем дело. Проверьте плиз!

Program zad2;
Uses crt;
Var a:string; b,s:char; t,k,i:integer;
Begin
Clrscr;
writeln('Vvedite text iz strochnux bykv');
readln(a);
k:=length(a);
if a[k]='.' then begin
for i:=1 to k-1 do begin
s:=a[i];
t:=ord(a[i]);
if t<=239 then t:=t-32 else t:=t-80;
a[i]:=chr(t); end;
writeln(a);
end else writeln('Vu zabuli postavit tochky');
readln;
End.

М

Про использование тегов не забываем... мисс_граффити

Сообщение отредактировано: мисс_граффити - 4.04.2007 18:05

[volvo]

for i:=1 to k-1 do begin
  if a[i] in ['а' .. 'п'] then a[i] := chr(ord(a[i]) - 32)
  else if a[i] in ['р' .. 'я'] then a[i] := chr(ord(a[i]) - 80);
end;

(пробелы и знаки пунктуации переводить в другой регистр не надо)

[Athen]

for i:=1 to k-1 do begin
  if a[i] in ['а' .. 'п'] then a[i] := chr(ord(a[i]) - 32)
  else if a[i] in ['р' .. 'я'] then a[i] := chr(ord(a[i]) - 80);
end;

(пробелы и знаки пунктуации переводить в другой регистр не надо)

оо!! спасибо огромное!!!