Delphi заготовки

{

Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.
}
const
  WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово
 
var
   s:string;



   Function GetTextToUslovie(s:string):string;
 var start,y,x:integer;
     s2:string;
     ch:char;
begin
  y:=0;
  s2:='';
  start:=x;
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
    if s2='' then start:=x;
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
    &nb ... Читать дальше »