pomoc s pogramem v pascalu

muzete mi prosim rict co na tom muze byt spatne
zacnu asi tim co to ma delat a co to dela
ma to vytvorit soubor a zapsat do nej text, ktery uzivatel zapise na klavesnici. Toto to sice dela ,ale nedovoli zapsat na prvni radek souboru
nevim co stim.

program sen(input,output);
uses crt;
type vel=0..100;
retezec =array[vel] of char;
var F:text;
s:string;
radek:retezec;
r:word;
begin
clrscr;
write('nzev souboru: ');
read(s);
assign(F,s);
writeln('zacnete psat text soboru '+s+':');
rewrite(F);
r:=0;
repeat
if (r=12) or (r=24) or (r=36) then
begin
clrscr;
writeln('pisete text soboru '+s+':') ;
end;
r:=r+1;
write(r);
delay(22);
textcolor(blue);
readln(radek);
writeln(F,radek);
textcolor(white);
writeln('pro konec stskni c');
until ReadKey='c' ;
close(F);
end.

Tfuj, to nevypadá na PHP^_^.

Lukasiku, no kdyby to bylo PHP tak by asi titulek vypadal trochu jinak ;-))


nevim co tam je za chybu ..

Já jsem se sic pascal učil, dokonce dva roky, ale neumím ani jeden příkaz;)
Bylo to ve škole a mě se nelíbilo, takže jsem se na to vyprdl^_^

jak na tebe tak koukam Lukasiku tak mas red jen php ;-)

Hm, PHP, JS, C++, Visual Basic

Trochu jsem to zkrášlil:

program sen(input,output);

uses Crt;

type vel = 0..100;
retezec = array[vel] of char;

var f : text;
s : string;
radek : retezec;
r : word;

begin
ClrScr;
Write('Nazev souboru: ');
ReadLn(s);
Assign(f,s);
WriteLn('Zacnete psat text soboru '+s+':');
Rewrite(f);
r:=0;

repeat
Inc(r);
if (r mod 12)=0 then
begin
ClrScr;
WriteLn('Pisete text soboru '+s+':') ;
end;
Write(r);
TextColor(lightblue);
Readln(radek);
WriteLn(f,radek);
TextColor(white);
WriteLn('Pro konec stskni c nebo pokračujte libovolnou klávesou.');
until ReadKey='c' ;

Close(F);
end.

Jinak kde byla chyba nějak nevím :-) jsem línej ji tam hledat, ale zkus porovnat to moje a Tvoje a třeba ji najdeš.

eh, uz je to par let, ale nema bejt misto
var f: text;

treba file of text nebo textfile ??

-ale nevim...