простая задача на списки, fp Опции

[compiler]

Добрый день!
Надо довести до совершенство решение задачи, тема который для меня тёмный лес:
Написать программу, содержащую процедуру, которая меняет местами первый
и второй элементы не пустого списка.
Если элементы не найдены, то выдать на экран соответствующие сообщение.
задача уже решалась на форуме, однако хотелось бы увидеть оптимальное решение, учитывая возможности FP
моё решение

{$mode objfpc}
type
		data=^node;
		node=record i:integer; next:data; end;

function ch(var p:data):boolean;
var wp:data;
begin
		if p^.next<>nil then begin
				wp:=p^.next; p^.next:=wp^.next; wp^.next := p;
				p:=wp;
				ch:=true;
		end else
				ch:=false;
end;

procedure  print(const p:data);
var p0:data;
begin
		p0:=p;
		if (p0^.next<>nil) then begin
				repeat
						writeln(p0^.i); p0:=p0^.next;
				until (p0^.next=nil);
				writeln(p0^.i);
		end;
end;

procedure  init(var p:data);
var	 p0,p1:data;	 i:integer;
begin
		new(p);
		p^.next:=nil; p^.i:=0;
		p0:=p;
		readln(i);
		if i<>0 then begin
				p0^.i:=i;
				readln(i);
				while i<>0 do begin
						new(p1);
						p1^.i:=i; p1^.next:=nil;
						p0^.next:=p1;
						p0:=p1;
						readln(i);
				end;
		end;
end;

procedure free(p:data);
var	 p0:data;
begin
		repeat
				p0:=p^.next;
				dispose(p);
				p:=p0;
		until (p=nil);
end;

var
		sp:data;
begin
		init(sp);
		if ch(sp) then print(sp) else writeln('error');
		free(sp);
end.

заранее благодарен.

[volvo]

А по умолчанию, используется отдельный диалект паскаля

Это с чего вдруг? По умолчанию как раз используется {$mode objfpc}, посмотри в файле fp.cfg, который лежит в папке \bin (я его не использую, у меня CFG-файл хранится в рабочей папке, так что в \bin хранятся именно установки по умолчанию), там есть ключ -Mfpc...

P.S. Комментарии добавлены...

[compiler]

...там есть ключ -Mfpc...

хм.. действительно есть... но если я компилирую через консоль(без каких либо ключей) то получаю диалект(и в настройках IDE, как стоял диалект, так и стоит..) почему все так...

P.S. Комментарии добавлены...

спасибо, как я сразу не понял...

upd
по умолчанию используется все таки диалект
выдержка из результатов $fpc

Код

-M<x>  set language mode to <x>
      -Mfpc      free pascal dialect (default)
      -Mobjfpc   switch some Delphi 2 extensions on
      -Mdelphi   tries to be Delphi compatible
      -Mtp       tries to be TP/BP 7.0 compatible

Сообщение отредактировано: compiler - 30.01.2008 22:46