Untitled

program Bac2009;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f : text;

procedure saisie(var f : text);
var c : char;
    s : string;
begin
  assign(f,'C:\Users\evilkid\Desktop\BacProgPratique\source\Bac2009\phrases.txt');
  rewrite(f);

  repeat
    write('Entrer une phrase: ');
    readln(s);

    writeln(f,s);

    {repeat
      write('quiter le remplisage(O/N)...');
      C := readkey;
      writeln(c);
    until upcase(c) in ['O','N'];
    }
    write('quiter le remplisage(O/N)...');
    readln(c);
  until upcase(c) = 'N';
  close(f);
end;

function corrig(S1 : string) : string;
var  i,l : byte;
     s : string;
begin
  l := length(s);

  S := '';
  writeln(s1);
  for i := 1 to l do
  begin
    if S1[i] = ' ' then writeln('yasine');
  end;

  writeln(s);
end;
begin
  writeln(corrig('L''informatique  est  une  science'));
  //writeln('L''informatique est une science');
  readln;
end.