Question

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

Answer 1

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