Program VORDLUS;
(*Eesti Vabariiklik Informaatikaolümpiaad 1993 *)

Uses Dos, Crt;
Type String21=String[21];
Var
ETALON,VASTUS:String21;
PROOV:Array[0..10] of String21;
LUB_VIGU,MAKSTASE:Integer;
OK,LEITUD:Boolean;
Label Tsykkel;

(*-----------------------------------------------------*)
Procedure AEG;
Var t,min,sec,s100:word;
Begin
Gettime(t,min,sec,s100);
writeln(min:2,'.',sec:2,',',s100:2);
End;

(*------------------------------------------------*)
Procedure SISENDIKONTR(SISEND,NIMI:String21;Var OK:Boolean);
  Var I:Integer;
  Begin
  If Length(SISEND)>20 Then
    Begin
    Writeln(NIMI,' on pikem kui 20');
    OK:=False;
    End;
  For I:=1 to Length(SISEND) Do
    If Not(SISEND[I] in ['a'..'z','A'..'Z',' ']) Then
      Begin
      Writeln(NIMI,' sisaldab lubamatut sümbolit ', SISEND[I]);
      OK:=False;
      Exit
      End;
  End; (*Proc SISENDIKONTR*)

(*--------------------------------------------*)
Procedure UURI(ETALON:String21;TASE:Integer;ALGOPER:Char;KOHT:Integer;
               Var LEITUD:Boolean);
Var I,L,
    SAMME,LMUUTUS,UUSI:Integer;
    SYMBOL:char;
Label Eemald,Vahet,Lisam,Asend;

Procedure TULEMUS;
Var I:Integer;
Begin
AEG;
LEITUD:=True;
Writeln('Tehtud vähemalt', TASE:2, ' viga, muutes vastust järgmiselt:');
For I:=0 to TASE Do  Writeln(PROOV[I]);
Repeat until Keypressed;
End;

(*-------------------------------------------*)
Begin
If LEITUD Then Exit;
L:=Length(ETALON);
SAMME:=MAKSTASE-TASE+1;
LMUUTUS:=Length(VASTUS)-Length(ETALON);
If SAMME<Abs(LMUUTUS) Then Exit; {ei suuda pikkust muuta}

If TASE<3 Then
  Begin
  UUSI:=0;
  For I:=1 to Length(VASTUS) Do
    If Pos(VASTUS[I],Copy(ETALON,I-SAMME,2*SAMME+1))=0 Then
      UUSI:=UUSI+1;
  If UUSI>SAMME Then Exit;
  End;
Case ALGOPER of
  'E': Goto Eemald;
  'V': Goto Vahet;
  'L': Goto Lisam;
  'A': Goto Asend;
  Else Writeln('Tundmatu operatsioon');
  End;
{-----------------eemaldamine-----------------------}
Eemald:If SAMME-1>=LMUUTUS+1 Then
  For I:=KOHT to L Do
    Begin
    PROOV[TASE]:=ETALON;
    Delete(PROOV[TASE],I,1);
    If PROOV[TASE]=VASTUS
      Then TULEMUS
      Else If TASE<MAKSTASE Then UURI(PROOV[TASE],TASE+1,'E',I,LEITUD);
    If LEITUD Then Exit;
    End;
{-------------vahetamine----------------------------}
Vahet:If LMUUTUS<0 Then Exit;
  If SAMME=LMUUTUS Then Begin
                        KOHT:=1;
                        Goto Lisam; {tohib ainult lisada}
                        End;
  For I:=KOHT to L-1 Do
    Begin
    PROOV[TASE]:=ETALON;
    PROOV[TASE][I]:=ETALON[I+1];
    PROOV[TASE][I+1]:=ETALON[I];
    If PROOV[TASE]=VASTUS
      Then TULEMUS
      Else If TASE<MAKSTASE Then UURI(PROOV[TASE],TASE+1,'V',I+1,LEITUD);
    If LEITUD Then Exit;
    End;
{-------------lisamine--------------------}
Lisam:If LMUUTUS>0 Then
  Begin
  For I:=KOHT to L Do
    If ETALON[I]<>VASTUS[I] Then
      Begin
      PROOV[TASE]:=ETALON;
      Insert(VASTUS[I],PROOV[TASE],I);
      If PROOV[TASE]=VASTUS
        Then TULEMUS
        Else If TASE< MAKSTASE Then UURI(PROOV[TASE],TASE+1,'L',I+1,LEITUD);
    If LEITUD Then Exit;
      End;
  PROOV[TASE]:=ETALON+VASTUS[L+1];
  If PROOV[TASE]=VASTUS
    Then TULEMUS
    Else If TASE< MAKSTASE Then UURI(PROOV[TASE],TASE+1,'L',I+1,LEITUD);
    If LEITUD Then Exit;
  End;
{------------------asendamine------------------}
Asend: If LMUUTUS<>0 Then Exit;
For I:=1 to L Do
  If ETALON[I]<>VASTUS[I] Then
    Begin
    PROOV[TASE]:=ETALON;
    PROOV[TASE][I]:=VASTUS[I];
    If PROOV[TASE]=VASTUS
      Then TULEMUS
      Else If TASE<MAKSTASE Then UURI(PROOV[TASE],TASE+1,'A',I+1,LEITUD);
    If LEITUD Then Exit;
    End;
End; (*Procedure UURI*)

(*========================================*)
Begin
Clrscr;
Writeln('===========VQRDLUS=================');
Write('Lubatud vigade arv=');
 Readln(LUB_VIGU);
Tsykkel: Repeat
  Writeln('---------------------');
  Write('ETALON=');
  Readln(ETALON);
  If ETALON='' Then Halt;
  Write('VASTUS=');
  Readln(VASTUS);
  AEG;
  OK:=True;
  SISENDIKONTR(ETALON,'ETALON',OK);
  SISENDIKONTR(VASTUS,'VASTUS',OK);
  until OK;
If VASTUS=ETALON Then
  Begin
  Writeln ('Vastus täpne');
  AEG;
  Goto Tsykkel;
  End;
{--------------------------------------}
proov[0]:=ETALON;
LEITUD:=False;
For MAKSTASE:=1 to LUB_VIGU Do
  Begin
  UURI(proov[0],1,'E',1,LEITUD);
  If LEITUD Then Goto Tsykkel;
  End;
Writeln('Vastus vale');
AEG;
Goto Tsykkel;
End.