freepascal.ru

Код: Выделить всё

program project4;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes;

Procedure Proc1;
Var
  aString: String = 'Hello world';
  i: Integer;
Begin
  For i := 1 To Length(aString) Do
    Case aString[i] Of
      'H': WriteLn('We meet letter H!');
      'w': WriteLn('We meet letter w!');
      ' ':
        Begin
          WriteLn('We meet space!');
          WriteLn('First word is "' + Copy(aString, 1, i - 1) + '"');
        End;
    End;
End;

Procedure Proc2;
Var
  aString: String = 'Hi world';
  i: Integer;
Begin
  For i := 1 To Length(aString) Do
    Case aString[i] Of
      'H': WriteLn('We meet letter H!');
      'w': WriteLn('We meet letter w!');
      ' ':
        Begin
          WriteLn('We meet space!');
          WriteLn('First word is "' + Copy(aString, 1, i - 1) + '"');
        End;
    End;
End;

begin
  Proc1;
  Proc2;
end.