Помогите с информатикой)
Найти и исправить ошибки, в ответ - записать вводимые значения и результат

Пример 1:

program a1;
var k,m,day: intiger;
Dat: array [1....7] of intiger;
begin
Dat [1]:=7;
Dat [2]:=9;
Dat [3]:=10;
Dat [4]:=8;
Dat [5]:=6;
Dat [6]:=7;
Dat [7]:=10;
Day:= 1
m:=Dat [1];
for k:=2 to 7 do
if Dat[k] > m then
begin
m:= Dat[k];
day:=k
end;
write (day)
end.

Пример 2:

program a1;
var k,m,count; integer;
Dat: array [1...7] of integer;
begin.
Dat [1]:=3;
Dat [2]:=-1;
Dat [3]:=2;
Dat [4]:=0;
Dat [5]:=0;
Dat [6]:=4;
Dat [7]:=-2;
count:= 0
for k:=1 to 7 do
if Dat[k] >=0 then
count:=count + 1
writi (count);
end.

Пример 3:

program a1;
var a,b,c,f,s: byte;
begin
readln (a);
b:= a div 100;
c:= a mod 100;
d:= c div 10;
f:= c mod 10;
s:= b+d+f;
if (s mod 2)=0 then
writln ('четное ) else writeln ('не четное');
end

1) var k,m,day: integer; - не intIger, а intEger
Dat: array [1..7] of integer; - аналогично + в массиве между границами в квадратных скобках 2 точки, а не 4
Day:= 1; - отсутствовала точка с запятой
day:=k; - аналогично - точка с запятой
write (day) - опять же точка с запятой.
Результат: 3.
2) var k,m,count; integer; - перед integer - нужно двоеточие, а не точку с запятой поставить
Dat: array [1..7] of integer; - в [1..7] нужны 2 точки, а не 3
begin - после begin ничего не ставится (нужно убрать точку)
count:= 0 - отсутствует точка с запятой (;)
count:=count + 1 - аналогично
write (count); - writE, а не writI.
Результат: 5
3) var a,b,c,f,s: byte; - а где описание переменной d? - правильный вариант: var a,b,c,d,f,s: byte;
writln ('четное ) else writeln ('не четное'); - во-первых во writEln пропущена буква E, во-вторых, после слова "четное" пропущен апостроф (').
end - в конце программы после последнего слова end ставится точка, а в данном примере она отсутствует.
Результат: в зависимости от введенного числа (четное/нечетное).