free pascal error while linking Vyřešeno

[McDragon23]

napsal jsem jednoduchý program

Kód: Vybrat vše

program proverka;
uses crt;
var A:string;
begin
clrscr;
repeat
write ('Tento program vam prozradi heslo k rar souboru staci pouze prelozit binarni kod na pismena 0100001101 1110100101 0100011101 0101110100 0110111101 1100100110 1001011000 0101101100 01110011.');
writeln ('Doporucuji pouzit stranky www.rikovsky.cz/programy/binarni.htm');
readln (A);
until upcase (A) = 'CzTutorials';
write ('blabla');
READLN;
end.

a at ho upravím jak chci tak mi to pokažde napíše u slova "end." error while linking....nevíte někdo co s tím ?

[Reklama]

[faraon]

Žádný problém tam nevidím, máš za tím end. odentrováno?

[McDragon23]

ne

[faraon]

Fakt ne? Ale to musíš!

Jinak ten poslední řádek kompilátor nenačte. Stejný problém bys mohl mít při čtení ze souboru procedurou readln(), protože řádek je prostě sled znaků ukončených znakem konce řádku. Tedy aspoň v textovém souboru, u binárních je zase všechno jinak.

[McDragon23]

JE TO odentrovane a furt while linking error

--- Doplnění předchozího příspěvku (17 Črc 2014 22:03) ---

tak mě napadlo nemůže to být tím že to píšu v externím programu PSpad ?

[faraon]

Jaký máš operační systém? Pod Linuxem by mohla chybět knihovna CRT, ale to by udělal spíš GPC než FPC.

PSPad je normální textový editor, měl by ukládat čistý text. Ale FreePascal má svoje IDE, ne? Nejde to v něm krokovat?

[McDragon23]

ukladam to jako *.pas a mam win. 7 pspad ma zabudované programovací jazyky