Модули - ';' expected but '.' found.

[Katus]

Написал модуль... При компиляции выдает ошибку.. проверил Begin-End, Repeat-Until... Вродк все на месте... Структура модуля тоже вроде как правильная.... Подскажите пожалуйста где ошибка

unit Unit2;

interface

uses
  SysUtils,Graphics;

type
  TMap = record
		area: record
			size: record
				height, width: integer;
			end;
			pos: record
				left, top: integer;
			end;
		end;
		way: record
			start: record
				pos: record
					left, top: integer;
				end;
				size: record
					height, width: integer;
				end;
				color: tcolor;
			end;
			finish: record
				pos: record
					left, top: integer;
				end;
				size: record
					height, width: integer;
				end;
				color: tcolor;
			end;
		end;
		write: array of record
			line: record
				start: record
					pos: record
						left, top: integer;
					end;
				end;
				finish: record
					pos: record
						left, top: integer;
					end;
				end;
				typeline: byte;
				width: integer;
			end;
		end;
		dinamic: array of record
			block: record
				start: record
					pos: record
						left, top: integer;
					end;
				end;
				finish: record
					pos: record
						left, top: integer;
					end;
				end;
				speed: integer;
			end;
		end;
		coursor: record
			start: record
				pos: record
					left, top: integer;
				end;
			end;
			color: tcolor;
		end;
		nwrite, ndblock: word;
	end;


implementation

const
  STRLENG = 20;

procedure MapReader(var f: text; Map: TMap);
procedure FNumReader(var f: text; num: integer; s: string);
procedure StringController(var s: string);
procedure StringRead(var f: text; c: char; s: string);
function FDelete(S: string; L: byte): string;


function FDelete(S: string; L: byte): string;
begin
Delete(S, L, Length(S)-L);
result:=S;
end;

procedure StringController(var s: string);
begin
if Length(s)>STRLENG then
	Delete(s, 1, 1);
end;

[Katus]

procedure FNumReader(var f: text; num: integer; s: string);
var
	c: char;
begin
num:=0;
repeat
read(f, c);
stringcontroller(s);
s:=s+c;
if (s[1]>'0')and(s[1]<'9') then
	num:=num*10+StrToInt(s[1]);
until EOF(f) or (s[1]=#13) or (s[1]=#10);
end;

procedure StringRead(var f: text; c: char; s: string);
begin
read(f, c);
stringcontroller(s);
s:=s+c;
end;

procedure MapReader(var f: text; Map: TMap);
var
	c: char;
	findstring: string;
	num: word;
begin
Num:=0;
repeat
read(f, c);
stringcontroller(findstring);
findstring:=findstring+c;
if FDelete(findstring, 4)='area' then
	repeat
	StringRead(f, c, findstring);
	if FDelete(findstring, 4)='size' then
		repeat
		StringRead(f, c, findstring);
		if FDelete(findstring, 7)='width =' then
			FNumReader(f, Map.Area.Size.Width, findstring)
		else if FDelete(findstring, 8)='height =' then
			FNumReader(f, Map.Area.Size.Height, findstring);
		until EOF(f) or (FDelete(findstring, 3)='end')
	else if FDelete(findstring, 3)='pos' then
		repeat
		StringRead(f, c, findstring);
		if FDelete(findstring, 5)='top =' then
			FNumReader(f, Map.Area.Pos.Top, findstring)
		else if FDelete(findstring, 6)='left =' then
			FNumReader(f, Map.Area.Pos.Left, findstring);
		until EOF(f) or (FDelete(findstring, 3)='end');
	until EOF(f) or (FDelete(findstring, 3)='end')
else if FDelete(findstring, 3)='way' then
	repeat
	StringRead(f, c, findstring);
	if FDelete(findstring, 5)='start' then
		repeat
		StringRead(f, c, findstring);
		if FDelete(findstring, 3)='pos' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 5)='top =' then
				FNumReader(f, Map.Way.Start.Pos.Top, findstring)
			else if FDelete(findstring, 6)='left =' then
				FNumReader(f, Map.Way.Start.Pos.Left, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end')
		else if FDelete(findstring, 4)='size' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 8)='height =' then
				FNumReader(f, Map.Way.Start.Size.Height, findstring)
			else if FDelete(findstring, 7)='width =' then
				FNumReader(f, Map.Way.Start.Size.Width, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end')
		else if FDelete(findstring, 7)='color =' then
			FNumReader(f, Map.Way.Start.Color, findstring);
		until EOF(f) or (FDelete(findstring, 3)='end')
	else if FDelete(findstring, 6)='finish' then
		repeat
		StringRead(f, c, findstring);
		if FDelete(findstring, 3)='pos' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 5)='top =' then
				FNumReader(f, Map.Way.Finish.Pos.Top, findstring)
			else if FDelete(findstring, 6)='left =' then
				FNumReader(f, Map.Way.Finish.Pos.Left, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end')
		else if FDelete(findstring, 4)='size' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 8)='height =' then
				FNumReader(f, Map.Way.Finish.Size.Height, findstring)
			else if FDelete(findstring, 7)='width =' then
				FNumReader(f, Map.Way.Finish.Size.Width, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end')
		else if FDelete(findstring, 7)='color =' then
			FNumReader(f, Map.Way.Finish.Color, findstring);
		until EOF(f) or (FDelete(findstring, 3)='end');
  until EOF(f) or (FDelete(findstring, 3)='end')
else if FDelete(findstring, 7)='write =' then begin
	FNumReader(f, Map.NWrite, findstring);
	SetLength(Map.Write, Map.NWrite);
	repeat
	StringRead(f, c, findstring);
	with Map.Write[Num] do
		if FDelete(findstring, 4)='line' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 5)='start' then
				repeat
				StringRead(f, c, findstring);
				if FDelete(findstring, 3)='pos' then
					repeat
					StringRead(f, c, findstring);
					if FDelete(findstring, 5)='top =' then
						FNumReader(f, Line.Start.Pos.Top, findstring)
					else if FDelete(findstring, 6)='left =' then
						FNumReader(f, Line.Start.Pos.Left, findstring);
					until EOF(f) or (FDelete(findstring, 3)='end');
				until EOF(f) or (FDelete(findstring, 3)='end')
			else if FDelete(findstring, 6)='finish' then

[Katus]

				repeat
				StringRead(f, c, findstring);
				if FDelete(findstring, 3)='pos' then
					repeat
					StringRead(f, c, findstring);
					if FDelete(findstring, 5)='top =' then
						FNumReader(f, Line.Finish.Pos.Top, findstring)
					else if FDelete(findstring, 6)='left =' then
						FNumReader(f, Line.Finish.Pos.Left, findstring);
					until EOF(f) or (FDelete(findstring, 3)='end');
				until EOF(f) or (FDelete(findstring, 3)='end')
			else if FDelete(findstring, 6)='type =' then
				FNumReader(f, Line.TypeLine, findstring)
			else if FDelete(findstring, 7)='width =' then
				FNumReader(f, Line.Width, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end');
	until EOF(f) or (FDelete(findstring, 3)='end');
  Num:=Num+1;
	end
else if FDelete(findstring, 9)='dinamic =' then begin
	Num:=0;
	FNumReader(f, Map.NDBlock, findstring);
	repeat
	StringRead(f, c, findstring);
	with Map.Dinamic[Num] do
		if FDelete(findstring, 5)='block' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 5)='start' then
				repeat
				StringRead(f, c, findstring);
				if FDelete(findstring, 3)='pos' then
					repeat
					StringRead(f, c, findstring);
					if FDelete(findstring, 5)='top =' then
						FNumReader(f, Block.Start.Pos.Top, findstring)
					else if FDelete(findstring, 6)='left =' then
						FNumReader(f, Block.Start.Pos.Left, findstring);
					until EOF(f) or (FDelete(findstring, 3)='end');
				until EOF(f) or (FDelete(findstring, 3)='end')
			else if FDelete(findstring, 6)='finish' then
				repeat
				StringRead(f, c, findstring);
				if FDelete(findstring, 3)='pos' then
					repeat
					StringRead(f, c, findstring);
					if FDelete(findstring, 5)='top =' then
						FNumReader(f, Block.Finish.Pos.Top, findstring)
					else if FDelete(findstring, 6)='left =' then
						FNumReader(f, Block.Finish.Pos.Left, findstring);
					until EOF(f) or (FDelete(findstring, 3)='end');
				until EOF(f) or (FDelete(findstring, 3)='end')
			else if FDelete(findstring, 7)='speed =' then
				FNumReader(f, Block.Speed, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end');
	until EOF(f) or (FDelete(findstring, 3)='end');
  Num:=Num+1;
  end
else if FDelete(findstring, 7)='coursor' then
	repeat
	StringRead(f, c, findstring);
	if FDelete(findstring, 5)='start' then
		repeat
		StringRead(f, c, findstring);
		if FDelete(findstring, 3)='pos' then
			repeat
			StringRead(f, c, findstring);
			if FDelete(findstring, 5)='top =' then
				FNumReader(f, Map.Coursor.Start.Pos.Top, findstring)
			else if FDelete(findstring, 6)='left =' then
				FNumReader(f, Map.Coursor.Start.Pos.Left, findstring);
			until EOF(f) or (FDelete(findstring, 3)='end');
		until EOF(f) or (FDelete(findstring, 3)='end')
	else if FDelete(findstring, 7)='color =' then
		FNumReader(f, Map.Coursor.Color, findstring);
	until EOF(f) or (FDelete(findstring, 3)='end');
until EOF(f) or (FDelete(findstring, 3)='end');
end;



begin

end.

[=master=]

Закинте все это дело в xml и не мучайтесь.

[Katus]

зачем ??? -_-

[=master=]

Чтобы не мучаться.
Ваша структура без роблем войдет в xml.
Для xml создали кучу всяких библиотек, вам же придется только пользоватся, не изобретая велосипедов.

[Katus]

я не умею работаль с XML

[=master=]

Еще раз, начнете работать с xml ваша гора кода превратится в 3-4 строки.

[Katus]

Мне будет не удобно работать с ХML. Тем более я что зря старался7 -_-

[=master=]

Именно так.