[you92cef]

 
program ex;
uses wincrt;
type sem=array[1..2]of string;
type uu=array[1..2,1..9]of string;              
type matt =record
     cod:integer;
     nom:string;
     uni:string;
     cre:integer;
     coe:integer;
     lib:string;
     end;
type tab=array[1..9]of matt;
var i:integer;
t:tab;
ch:string;
u:uu;
semm,chch,j:integer;
procedure lire;
begin
writeln('Entrez semestre');
readln(semm);
for j:=1 to 2 do 
for i:=1 to 9 do begin
writeln('code');
readln(t[i].cod);
writeln('nom matiere');
readln(t[i].nom);
writeln('unite');
readln(t[i].uni);
writeln('credit');
readln(t[i].cre);
writeln('coefficient');
readln(t[i].coe);
writeln('libele');
readln(t[i].lib);
end;
for j:=1 to 2 do
for i:=1 to 9 do
u[j,i]:=t[i].nom;
end;
procedure seme;
begin
for i:=1 to 9 do
writeln(u[j,i]);
end;
procedure mati;
begin
writeln('Entrez la matier');
readln(ch);
while (ch<>t[i].nom) and (i<=9) do
i:=i+1;
if ch=t[i].nom then begin
writeln('code:',t[i].cod);
writeln('unité:',t[i].uni);
writeln('credit:',t[i].cre);
writeln('coefficient:',t[i].coe);
writeln('libelle:',t[i].lib);
end;
end;
procedure aff;
begin
writeln('Entrez le semestre que vous voulez afficher');
readln(chch);
if chch=1 then
for i:=1 to 9 do
writeln(u[1,i]);
if chch=2 then
for i:=1 to 9 do
writeln(u[2,i]);
end;
begin
lire;
seme;
aff;
end.

بقي فقط تجريب اذا كان يشتغل جيدا وبعض التعديلات فقط في القراءة