Во вводимой строке надо заменить маленькие латинские буквы на большие и обратно.

Чтобы вывести вместо символа "А" символ "а", с помощью функции ord получаем порядковый номер символа"А", вычитаем из него 32, получается уже порядковый номер символа "а", который и выводим функцией chr. Для обратного преобразования достаточно прибавить 32.

uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Введите строку.');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
begin
s[i]:=chr(ord(s[i])-32);
end;
write(s);
readln;
end.

uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Введите строку.');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then
begin
s[i]:=chr(ord(s[i])+32);
end;
write(s);
readln;
end.

Решение через функцию UpCase.

program Pascal_160089;
var
str:String;
i:Integer;
begin
WriteLn('Enter string:');
ReadLn(str);
for i := 1 to Length(str) do
str[i]:=UpCase(str[i]); { Upcase() - приводит к верхнему регистру }
WriteLn(str);
ReadLn;
end.

Архива нет пишите ручками.

Hosted by uCoz