Описать процедуру Trim(S), удаляющую в строке S начальные и конечные пробелы.

Easy!function Trim(s:string):string;begindelete(s,1,1);delete(s,length(s),length(s));result:=s;end;