Пример. Преобразование регистра

UpCase(’a’) ---> ’A’ UpCase(’#’) ---> ’#’

Пример. Сложение строк

Program PlusDemo;
 var s1,s2:string;
begin
 s1:=’Мир’;
 s2:=s1+s1+’и еще раз’+s1+’!’;
 writeln(s2);
end.

Пример. Копирование из строки подстроки

s1:='кафедра ИВМ';
s2:=Copy(s1,9,3); {s2 = 'ИВМ'}

Пример. Удаление из строки подстроки

S:='Кафедра ИВМ';
Delete(S,4,5); {S = 'КафИВМ'}

Пример. Длина строки

Length (’student’) ----> 7
Length (’’) -----------> 0

Пример. Определение вхождения подстроки в строку

N:=Pos('ра','Абракадабра'); {N=3}
M:=Pos('Ра','Абракадабра'); {M=0}

Пример. Обращение к одному символу строки:

program SymbolsNr;
 var s:string;
 i:integer;
begin
 s:=’Забодаевка’;
 i:=length(s); {Вычисление длины}
 writeln(s[i]) { Печать '!'}
end.

Пример. Сформировать массив из символов текста.

Program Simv;
var
 s,ns:string;
 i,j,n,ks,jn:integer;

begin
 writeln('Введите строку');
 readln(s);
 n:=length(s);
 ks:=0;
 for i:= 1 to n do
  begin
   jn:=0;
   for j:=1 to ks do
   if ns[j]=s[i] then jn:=j;
   if jn=0 then
      begin
        ks:=ks+1;
        ns[ks]:=s[i];
      end;
   end;
 Writeln('Символы');
 for i:=1 to ks do write(ns[i]);
End.

---