Убрать пробелы перед строками

[WtfFox]

В данный код надо дописать процедуру, которая будет убирать пробелы перед строками, чтобы они не мешали сортировке по длине.
Знаю while s[1]=#32 do delete(s,1,1); но сюда это не подходит, что нужно сделать чтобы заработало?
Вот собственно код:

uses crt,dos;

var n,i,j,x,k,r:integer;s,ss:array[1..200]of string[80];fn,tmp:string;
    f:text;c:char; sg:set of char;

 begin repeat textattr:=$1F;clrscr;
    write('Enter FileName=');readln(fn);
  assign(f,'d:\user\15\'+fn );
 {$I-}
 reset(f);
 {$I+}
   r:=ioresult;if r<>0 then begin textcolor(128+12);
  writeln('No File!');readln; end;
  until r=0;
    n:=0;
 while not eof(f) do begin n:=n+1;readln(f,s[n]);
 end;close(f);
 clrscr;
 for i:=1 to n do begin writeln(s[i]);
     if i mod 23 = 0 then
     begin writeln('Press Enter...');readln;clrscr end;   end;
  textcolor(12);
  readln;
  for i:=1 to n do
  ss[i]:=s[i];
  clrscr;
    textcolor(11);
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if Length(ss[i])>Length(ss[j]) then begin
    tmp:=ss[i];ss[i]:=ss[j];ss[j]:=tmp end;
   for i:=1 to n do begin
   writeln(ss[i]); end;
    write('Stroka=');readln(k);
    sg:=['.',',',':',';','!','?','=','+','(',')'];
     for i:=1 to Length(s[k]) do
     if s[k][i] in sg then s[k][i]:=' ';
     textcolor(12);
     writeln(s[k]);
  readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[zhan313]

А чем не подходит ? Два массива, один вводится, другой сортируется.
Заменяются sg:=['.',',',':',';','!','?','=','+','(' ,')']; в исходном.
Вот и удали перед сортировкой ведущие пробелы во втором массиве.
Только не забудь во время сортировки и исходный отсортировать.

[WtfFox]

Не совсем понял, что вы имели ввиду..
Можно поподробнее?