Псевдокоды и блок схемы

uses crt;
var
X:integer;
begin
clrscr;
Writeln('Введите целое число в диапазоне 1-12');
readln(X);
case x of
1: Writeln('31 день');
2: Writeln('28 дней');
3: Writeln('31 день');
4: Writeln('30 дней');
5: Writeln('31 день');
6: Writeln('30 дней');
7: Writeln('31 день');
8: Writeln('31 день');
9: Writeln('30 дней');
10: Writeln('31 день');
11: Writeln('30 дней');
12: Writeln('31 день');
else Writeln('Ошибка');
end;
readkey;
end.

var
  i, n: integer;
 
begin
  readln(n);
  writeln('  i  i*7');
  for i:= 1 to n do
    writeln(i:3, i*7:4);
end.

uses crt;
const nmax=100;
var x,y:array[1..nmax] of integer;
    n,i,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива X до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив X:');
for i:=1 to n do
 begin
  x[i]:=random(50)-25;
  write(x[i]:4);
 end;
writeln;
k:=0;
i:=1;
while(i<=n)and(k<=5) do
if x[i]>0 then
 begin
  k:=k+1;
  y[k]:=x[i];
  i:=i+1;
 end
else i:=i+1;
if k<5 then write('В массиве Х нет 5 положительных элементов')
else
 begin
  writeln('Массив Y:');
  for i:=1 to k do
  write(y[i]:4);
 end;
readln
end.

uses crt;
const a=8;
b=12;
var
  mas: array [1..a,1..b] of integer;
  i,j : integer;
  s : real;
begin
write ('Первоначальный массив');
writeln;
for i:=1 to a do
for j:=1 to b do
mas[i,j]:=random(200)+100;
for i:=1 to a do
begin
for j:=1 to b do
begin
write (mas[i,j]:4);
end;
writeln;
end;
for j:=3 to 3 do
for i:=1 to a do
s:=s+mas[i,j];
s:=s/a;
writeln('Среднее арифметическое элементов третьего столбца матрицы = ',s);
end.