aaamAx - Online Pascal Compiler & Debugging Tool

program antivirus;

var
    M, N1, N2, N3, N4, T, p1, p2, p3, p4, test, i, id : LongInt;
    F1, F2, F3, F4, virus                             : AnsiString;
    corrispondenza : boolean;
    A :array [2..4] of Longint;
    F :array[1..4] of AnsiString;
begin
{
    decommenta le due righe seguenti se vuoi leggere/scrivere da file
    assign(input,  'input.txt');  reset(input);
    assign(output, 'output.txt'); rewrite(output);
}

    ReadLn(T);
    for test:=1 to T do begin
        ReadLn();
        ReadLn(N1, N2, N3, N4);

        ReadLn(M);

        for i:=1 to 4 do A[i]:=0;

        for i:=1 to 4 do ReadLn(F[i]);

        for p1:= 1 to  N1-M+1 do
                    begin
                      virus:=Copy(F[1],p1,M);
                      for i:=2 to 4 do  A[i]:=Pos(virus,F[i]);
                      corrispondenza:=true;
                      for i:= 2 to 4 do if A[i]=0 then corrispondenza:= false;
                      if corrispondenza=true then
                                              begin
                                                 for i:= 1 to 4 do begin p2:=A[2]; p3:=A[3]; p4:=A[4]; end;
                                                 Write('Case #', test, ': ');
                                                 WriteLn(p1-1, ' ', p2-1, ' ', p3-1, ' ', p4-1);
                                                 break;
                                              end;
                   end;

   end;
end.