Тип-запись(type ... record) в Delphi Pascal; отладка программы

[Legky]

Задание такое: есть несколько строк, не важно каких, а мне надо найти сумму долга.

program tipzapis;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n1=7;
type texnika=record
nazv:string;
kolvo:byte;
cena:real;
zakup:string;
dolg:real;
var n,i:byte;
k:real;
x:array[1..n1] of texnika;

begin
writeln('Kolichestvo texniki');
readln(n);
writeln('Enter danie texnika');
for i:=1 to n do
begin
write('Nazvanie');
readln(x[i].nazv);
write('cena');
readln(x[i].cena);
write('Zakupschik');
readln(x[i].zakup);
write('Dolg');
readln(x[i].dolg);
end;
end;
k:=0;
for i:=1 to n do
with x[i] do
begin
k:=k+x[i].dolg;
end;
writeln('Obschiy dolg=',k:5:2);
readln;readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Если не трудно, помогите с отладкой про-ги

Ошибки:
[Error] tipzapis.dpr(15): 'END' expected but 'VAR' found
[Error] tipzapis.dpr(34): '.' expected but ';' found
[Error] tipzapis.dpr(38): Identifier redeclared: 'Finalization'
[Warning] tipzapis.dpr(40): Text after final 'END.' - ignored by compiler

[_Engine_]

тип record объявляется так:

TMyRecordType = record
  Field1 : ...;
  Field2 : ...;
  ...
  FieldX : ...;
end;