Програмування рядкових величин

  s1:=copy(s,1,n-1);

  writeln(s1);

  delete(s,1,n);

  n:=pos(‘ ‘,s)

  end;

  writeln(s) 

end; 

procedure max_word(s:string; var s1:string); 

{ процедура знаходження найбільшого слова тексту } 

var m,n,max:integer;

  s2:string; 

begin

  s1:=”;

  max:=0;

  n:=pos(‘ ‘,s);

  while n<>0 do

  begin

  s2:=copy(s,1,n-1);

  m:=length(s2);

  if m>max then

  begin

  max:=m;

  s1:=s2

  end;

  delete(s,1,n);

  n:=pos(‘ ‘,s)

  end;

  m:=length(s);

  if m>max then s1:=s 

end;