Удалить из строки начальные пробелы

var
a:string ; 
i:Byte; 
procedure vvod(a:string);
begin
Write('введите строковую последовательность из 10-ти элементов ');
end;
function p(a:string):string;
begin
  Readln(a); 
i:=1;   
 while a[i] = ' ' do
        delete(a,i,1);
    while a[length(a)] = ' ' do
        delete(a, length(a), 1);
    i := 2;
    while i < length(a) do
        if (a[i] = ' ') and (a[i+1] = ' ') then
            a := copy(a,1,i) + copy(a,i+2,length(a))
        else
            i := i + 1;
            end;
procedure vivod(a:string);
begin
Writeln(a); 
end;
begin
  vvod(a);
  vivod(a);
  Write('результат строки: ',p(a));
Readln;
end.

procedure vvod(var t: string);
begin
  writeln('Введите строковую последовательность:');
  readln(t)
end;
 
function p(a: string): string;
var
  t: string;
  i, j, k: byte;
begin
  i := 1;
  while (i < length(a)) and (a[i] = ' ') do inc(i);
  j := length(a);
  while (j > 1) and (a[j] = ' ') do dec(j);
  if i > j then t := '' else t := a[i];
  for k := i + 1 to j do if (t[length(t)] <> ' ') or (a[k] <> ' ') then t := t + a[k];
  p := t
end;
 
procedure vivod(a: string);
begin
  writeln('Результат:');
  write(a)
end;
 
var
  s: string;
begin
  vvod(s);
  vivod(p(s));
  readln
end.

procedure vvod(var t: string);
begin
  writeln('Введите строковую последовательность:');
  readln(t)
end;
 
function p(a: string): string;
var
  t: string;
  i, k: byte;
begin
  i := 1;
  while (i < length(a)) and (a[i] = ' ') do inc(i);
  t := '';
  for k := i to length(a) do t := t + a[k];
  p := t
end;
 
procedure vivod(a: string);
begin
  writeln('Результат:');
  write(a)
end;
 
var
  s: string;
begin
  vvod(s);
  vivod(p(s));
  readln
end.