strlcomp.pas

 {StrLComp.PAS}
 
 { Пример программы для функции StrLComp }
 
 Uses Strings, WinCrt;
 
 Var Result : PChar;
     S1, S2 : Array [0..79] Of Char;
 
 Begin
  ReadLn(S1);
  ReadLn(S2);
  If StrLComp(S1, S2, 5) = 0 Then Result:='одинаковые'
                             Else Result:='разные';
  WriteLn('Первые пять символов ', Result, '.');
 End.