Programmation avec pascal

program lune; // un seul m à "program", car c'est de l'anglais
// ne mets pas "temps" comme nom de programme, tu utilises déjà ce terme plus loin

uses crt; // facultatif, tu ne t'en sers pas

type jour=1..31; // si tu ne sais pas t'en servir alors ne l'utilise pas

     saison=(printemps, ete, automne, hiver); // ps. la neige c'est en hiver
     // et il ne s'agit pas de temps, ici mais de saisons

     temps=(soleil, pluie, orage, neige); // ça c'est le temps !

     mois=array[1..31] of temps; // c'est très maladroit de mettre array[jour]


procedure weather(var m:mois); // le temps en anglais se dit "weather"
// c'est curieux de mettre `c` comme variable de type `ttemps`
var i:integer; // c'est très maladroit de mettre un type jour ici
begin
for i:=1 to 31 do
    m[i]:=soleil; // temps est un type et non une valeur, que veux tu faire ?
end;

var m:mois; // idem, pourquoi appeler `k` une variable de type `ttemps` ?
j:jour; // idem, pourquoi appeler `t` une variable de type `jour` ?
begin
writeln('donner un jour');
readln(j);
weather(m); // ici ton programme ne fais rien d'intéressant, que veux tu faire ?
end.

program lune;

const nMax:integer=5;
const wetter:array[1..nMax] of string=('sonnig','bewolkt','regen','gewitter','schnee'); // on me pardonnera mon allemand ;)

procedure WahlWetter(var s:string);
var i:integer;
begin
writeln('Wahl das Wetter :');
writeln;
for i:=1 to nMax do
    writeln(chr(9),i,' -> ',wetter[i]);
    writeln;
write('Index : ');
readln(i);
writeln;
s:=wetter[i];
end;

program Wetter;

type TWetter=(sonne,wolken,regen,schnee);
     TTag=1..31;
     TTagsWetter=array[TTag] of TWetter;

procedure WetterAusgabe(var t:TTagsWetter);
var i:integer;
begin
for i:=1 to 31 do
    case t[i] of
    sonne : writeln(i:2,' sonne ');
    wolken: writeln(i:2,' wolken');
    regen : writeln(i:2,' regen ');
    schnee: writeln(i:2,' schnee');
    end;
end;

var i:integer; t:TTagsWetter;
begin
for i:=1 to 31 do t[i]:=sonne; // zum Beispiel
WetterAusGabe(t);
writeln; write('Ende des Programms. Drucken Sie die Eingabetaste'); readln;
end.

procedure WetterVorhersage(var t:TTagsWetter);
var i:integer; s:string; b:boolean;
begin
for i:=1 to 6 do
    begin
    b:=true;
    while b do
          begin
          b:=false;
          write('Wetter vom ',i,'. ist ');
          readln(s);

               if s='sonne'  then t[i]:=sonne
          else if s='wolken' then t[i]:=wolken
          else if s='regen'  then t[i]:=regen
          else if s='schnee' then t[i]:=schnee
          else begin
               write(chr(7)); // Signalton
               b:=true; // noch einmal
               end;
          end;
    end;
end;

var t:TTagsWetter;
begin
WetterVorhersage(t);
writeln;
WetterAusgabe(t);
writeln; write('Ende des Programms. Drucken Sie die Eingabetaste'); readln;
end.