View difference between Paste ID: iLKcUvyD and T97NzHDz

-program Cryptage;
+Program Cryptage;
-uses wincrt;
+Uses Wincrt;
-type
+Type
-mat=array[1..20,1..10]of char;
+  mat = Array[1..20,1..10] Of Char;
-var
+Var
-f,fcr:text;
+  f,fcr: Text;
-cle:string;
+  cle: String;
-m:mat;
+  m: mat;
-l:integer;
+  l: Integer;
-function verif(ch:string):boolean;
+
-var
+Function verif(ch:String): Boolean;
-i:integer;
+Var
-begin
+  i: Integer;
-	i:=1;
+Begin
-	while(i<=length(ch)) and (ch[i] in ['A'..'Z']) do
+  i := 1;
-	i:=i+1;
+  While (i<=Length(ch)) And (ch[i] In ['A'..'Z']) Do
-	verif:=i>length(ch);
+    i := i+1;
-	end;
+  verif := i>Length(ch);
-function distinct(ch:string):boolean;
+End;
-var
+
-v:boolean;
+Function distinct(ch:String): Boolean;
-i:integer;
+Var
-begin
+  v: Boolean;
-	i:=1;
+  i: Integer;
-	repeat
+Begin
-	i:=i+1;
+  i := 1;
-	v:=pos(ch[i],copy(ch,1,i-1))=0;
+  Repeat
-	until not(v) or (i=length(ch));
+    i := i+1;
-	distinct:=v;
+    v := Pos(ch[i],Copy(ch,1,i-1))=0;
-	end;
+  Until Not(v) Or (i=Length(ch));
-procedure saisie( var cle:string);
+  distinct := v;
-begin
+End;
-	repeat
+
-	write('saisir un mot cle constituee de lettres majuscules distinctes de longueur entre 5 et 10 : ');
+Procedure saisie( Var cle:String);
-	readln(cle);
+Begin
-	until (length(cle)>=5) and (length(cle)<=10) and (verif(cle)) and (distinct(cle));
+  Repeat
-end;
+    Write(
-procedure rempm(var m:mat;var fcr:text;i:integer;var l:integer);
+        'saisir un mot cle constituee de lettres majuscules distinctes de longueur entre 5 et 10 : '
-var
+    );
-j,c:integer;
+    Readln(cle);
-ch:string;
+  Until (Length(cle)>=5) And (Length(cle)<=10) And (verif(cle)) And (distinct(cle));
-begin
+End;
-reset(fcr);
+
-	l:=1;
+Procedure rempm(Var m:mat;Var fcr:Text;i:Integer;Var l:Integer);
-	while not eof(fcr) do
+Var
-	begin
+  j,c: Integer;
-		readln(fcr,ch);
+  ch: String;
-while(i mod (length(ch))<>0) do
+Begin
-ch:=ch+' ';
+  Reset(fcr);
-		for j:=1 to length(ch) do
+  l := 1;
-		begin
+  While Not Eof(fcr) Do
-	for c:= 1 to i do
+    Begin
-	begin
+      Readln(fcr,ch);
-	m[c,l]:=ch[j];
+      While (i Mod (Length(ch))<>0) Do
-	if (c=i) then
+        ch := ch+' ';
-	l:=l+1;
+      For j:=1 To Length(ch) Do
-end;
+        Begin
-end;
+          For c:= 1 To i Do
-end;
+            Begin
               m[c,l] := ch[j];
-	end;
+              If (c=i) Then
-procedure crypter(var m:mat;var fcr,f:text;cle:string;var l:integer);
+                l := l+1;
-begin
+            End;
-	reset(fcr);
+        End;
-	rewrite(f);
+    End;
-	rempm(m,fcr,length(cle),l);
+  Close(fcr);
-	close(fcr);
+End;
-	close(f);
+
-end;
+Procedure crypter(Var m:mat;Var fcr,f:Text;cle:String;Var l:Integer);
-procedure affiche(var f:text);
+Begin
-var
+  Rewrite(f);
-ch:string;
+  rempm(m,fcr,Length(cle),l);
-begin
+  Close(f);
-	reset(f);
+End;
-	while (not(eof(f))) do
+
-	begin
+Procedure affiche(Var f:Text);
-		readln(f,ch);
+Var
-		writeln(ch);
+  ch: String;
-    end;
+Begin
-    close(f);
+  Reset(f);
-end;
+  While (Not(Eof(f))) Do
-procedure affmat(m:mat;l,c:integer);
+    Begin
-var
+      Readln(f,ch);
-i,j:integer;
+      Writeln(ch);
-begin
+    End;
-	for i:= 1 to l do
+  Close(f);
-	begin
+End;
-	for j:= 1 to c do
+
-	writeln(m[l,c]);
+Procedure affmat(m:mat;l,c:Integer);
-	end;
+Var
-	end;
+  i,j: Integer;
 Begin
-begin
+  For i:= 1 To l Do
-	assign(fcr,'C:\BAC2020\Sources.txt');
+    Begin
-	assign(f,'C:\BAC2020\Crypt.txt');
+      For j:= 1 To c Do
-	saisie(cle);
+        Writeln(m[l,c]);
-	crypter(M,fcr,f,cle,l);
+    End;
-	affmat(m,l,length(cle));
+End;
-	affiche(f);
+Begin
-end.
+assign(fcr,'C:\Users\platpot\Desktop\arfizato\progg\pascal\Projects\Source.txt');
 assign(f,'C:\Users\platpot\Desktop\arfizato\progg\pascal\Projects\Crypt.txt');
 ReWrite(fcr);
 close(fcr);
   saisie(cle);
   crypter(M,fcr,f,cle,l);
   affmat(m,l,Length(cle));
   affiche(f);
 End.