Замена маленьких букв на большие. DELPHI

[Absent]

Дан текст. Способ описания текста (массив символов или строка). Текст разбит на слова. Предпологается, что слово - это группа символов, не содержащая пробелов и отделенная пробелами от других слов. составить программу для обработки текстовой информации по поставленному словию.

Заменить все малые буквы латинского алфавита насоответствующие им большие буквы. Все в DELPHI.


Прошу помощи. Необязательно решать, киньте хотябы ссылку на какую-нибудь инфу об этом. Заранее спасибо.

[Alar]

http://delphibasics.ru/UpperCase.php

[Absent]

Спасибо за помощь!

program zadacha5_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type mass=array[1..10] of string;
Var
i,n:integer;
A:mass;

begin
write('n=');
readln(n);
for i:=1 to n do
begin
write ('A[',i,']=');
readln(A[i]);
end;
for i:=1 to n do
A[i]:= UpperCase(A[i]);
for i:=1 to n do
write('   A[',i,']=',A[i]);
readln;
end.