Помогите,пожалуйста,решить задачу в Паскале.

Acronix... а нех копипастить всё подряд из интернета, так, что, извини, но пидор это ты. На заборе тоже много чего написано.

function leap(g: integer): boolean;
begin
leap := ((g mod 4 = 0) and (not (g mod 100 = 0))) or (g mod 400 = 0);
end;

function correct(g, m, n: integer): boolean;
begin
case m of
1, 3, 5, 7, 8, 10, 12: correct := (n >= 1) and (n <= 31);
2: correct := (n >= 1) and (((n <= 28) and (not leap(g))) or ((n <= 29) and (leap(g))));
4, 6, 9, 11: correct := (n >= 1) and (n <= 30);
else
correct := False;
end;
end;

procedure GetNextDate(var g, m, n: integer);
begin
n := n + 1;
if (not correct(g, m, n)) then
begin
n := 1;
m := m + 1;
if (not correct(g, m, n)) then
begin
m := 1;
g := g + 1;
end;
end;
end;

procedure GetPrevDate(var g, m, n: integer);
begin
n := n - 1;
if (not correct(g, m, n)) then
begin
m := m - 1;
case m of
1, 3, 5, 7, 8, 10, 12: n := 31;
4, 6, 9, 11: n := 30;
2: n := 29 - byte(not leap(g));
else
m := 12;
n := 31;
g := g - 1;
end;
end;
end;

var
g, m, n: integer;
s: char;
begin
repeat
repeat
write('year: '); readln(g);
write('month: '); readln(m);
write('day: '); readln(n);
until correct(g, m, n);
GetNextDate(g, m, n);
writeln('Next date: ',g, '-', m, '-', n);
GetPrevDate(g, m, n);
GetPrevDate(g, m, n);
writeln('Prev date: ',g, '-', m, '-', n);
write('Continue [press ''N'' to stop]:'); readln(s);
until (UpCase(s) = 'N');
writeln('Press ENTER to close');
readln;
end.

> она вообще ни разу не показывала даже что-то подобное

А ты не в курсе что детский сад давно кончился и никто тебе не обязан ничего показывать ?
Тоже мне "антошка" - "Это мы не проходили" ))))

ОМГ Acronix смастерил говнокод, лол.

вата да?