Verified answer

var

 a:string;

 i:integer;

begin

 a:='pascal';

 write('Исходная строка: ', a, #10);

 for i:= 1 to length(a) do

   a[i]:=upcase(a[i]);

 writeln('Модифицированная строка: ', a);

end.