conv_file

program conv-fich;
uses wincrt;
type
eng =RECORD
Nombre:longint;
ch:string;
end;
mat=array of [1..4,1..4] of integer;
fich=file of eng;
var
fs:text;
fr:fich;
M:mat;

procedure transfert(var fs:text ; var M:mat) ;
var l,c:byte;
x,e:integer;
begin
    reset(fs);
    for l:=1 to 4 do
    begin
        readln(fs,x);
        x:=x+' ';
        for c:=1 to 4 do
        begin
        while (x<>'') do
        begin
            val(copy(x,1,pos(' ',x)-1),M[l,c],e);
            delete(x,1,pos(' ',x));
        end;
        end;
    end;
    close(fs);
end;

Function verif(x:longin;i:longint):boolean;
Begin
    if (x mod i=0)
    then verif:=false;
    else if(i > (x div 2))
    then verif:=true;
    else verif:=verif(x,i-1);
end;








procedure conv(var fr:fich; M:mat);
var
l,c,e:integer;
x:eng;
chh,chain:string;
begin
    ReWrite(fr);
    for c:=1 to 4 do
        chain:='';
        chh:='';
    begin
        for l:=1 to 4 do
        Begin
            with x do
            begin
                    str(M[l,c],chain);
                    chh:=chh+chain;
                    val(chh,nombre,e);
                    if verif(nombre,2)
                    then ch:='Nombre premier';
                    else ch:='Nombre non-premier';
             end;
              write(fr,x) ;
          end;
     close(fr);
     end;


    begin
        assign(fs,'C:\bac2019\Source.txt);
        assign(fr,'C:\bac2019\Resultat.dat');
        transfert(fs,M);
        conv(fr,M);
    end;