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

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