И последнее пожалуйста!!!!!

var 
 №1
Var
A: array[1..100] of byte; 
  i, t, k, N: byte;

begin 
  write(' N = ');
  readln(N);
  writeln('Введите массив из ',N, ' элементов:'); 
  for i := 1 to N do
    read(a[i]);
  writeln('Введите число k, не больше ', N, ':'); 
  write( 'k = '); 
  readln(k);
  for i := 1 to Trunc(N / k) do
    write(' ', a[i * k])
end.

№2
var 
  A: array[1..10, 1..10] of integer; 
  i, j, M, N: byte; 
  
begin 
  writeln('Введите M, N:'); 
  readln(M, N); 
  writeln('Случайная матрица порядка ', M, ' x ', N, ':'); 
  randomize;
  for i := 1 to M do begin 
    for j := 1 to N do begin 
      a[i, j] := random(50); 
      write(a[i, j]:4) 
    end; 
    writeln 
  end; 
  writeln; 
  writeln('Выводим элементы в четных строках:'); 
  i := 2; { минимальное четный номер строки } 
  while i <= M do begin 
    for j := 1 to N do write(a[i, j]:4); 
    i := i + 2 { увеличиваем номер строки на 2 } 
  end; 
  readln 
end. 

№3
var
a,s:string;
i:integer;
begin
write('vvedite stroky: ');
readln(s);
write('vvedite ydaliaemoe slovo: ');
readln(a);
delete(s,pos(a,s),length(a));
writeln(s);
readln;
end.

№4 нашел в своих закромах) посчастливилось, что у меня она осталась) Прога объемная, надеюсь поймешь)
type
TDate = record
     
Day:integer;
     
Month:integer;
     
Year:integer;

end;


var date:TDate;

function LeapYear(D:TDate):boolean;

begin
   
 if (D.Year mod 4)=0 then
 LeapYear:=true
     
else
LeapYear:=false;

end;
 


function DaysInMonth(D:TDate):integer;

begin
   
 if (D.Month=1) or (D.Month=3) or(D.Month=5) or(D.Month=7) or(D.Month=8) or(D.Month=10) or (D.Month=12)
then
DaysInMonth:=31
   
 else
if (D.Month=4) or(D.Month=6) or(D.Month=9) or(D.Month=11)
then
DaysInMonth:=30
     
else
if (D.Month=2) then
   
 begin
         
if LeapYear(D)
then
DaysInMonth:=29
         
else
DaysInMonth:=28;
     
end;

end;
 


function CheckDate(D:TDate):integer;

begin
     
CheckDate:=0;
     
if (D.day>DaysInMonth(D)) or (D.day<0)
then
CheckDate:=2;
     
if (D.Month>12) or (D.Month<0) then
CheckDate:=1;

end;
 


procedure PrevDate;

begin
   
 if (CheckDate(date)=0) then
   
 begin
         
if (date.day-1)<=0 then
         
begin
             
 if (date.month-1)<=0 then
             
 begin
                   
 date.year:=date.year-1;
                   
 date.month:=12;
                   
date.day:= DaysInMonth(date);
             
  end
               
else
               
begin
                   
 date.month:=date.month-1;
                   
 date.day:=DaysInMonth(date);
             
  end;
         
end
         
else
 date.day:=date.day-1;
   
 end;

end;
 


procedure NextDate;

begin
   
 if (CheckDate(date)=0) then
   
 begin
         
if (date.day+1)>DaysInMonth(date) then
         
begin
             
 if (date.month+1)>12 then
             
  begin
                   
 date.year:=date.year+1;
                 
  date.month:=1;
                 
  date.day:=1;
             
 end
             
 else
               
begin
                   
 date.month:=date.month+1;
                 
  date.day:=1;
             
 end;
       
  end
         
else date.day:=date.day+1;
   
 end;

end;
 

begin
   
 write('День ');
readln(date.day);
   
 write('Месяц ');
readln(date.month);
   
 write('Год ');
readln(date.year);
   
 writeln;
     
NextDate;
   
 write('День ');
writeln(date.day);
   
 write('Месяц ');
writeln(date.month);
     
write('Год ');
writeln(date.year);

end.