how to pascal

[quattro^^]

Знае ли някой някакво хау ту начални стъпки или нещо такова за паскал, че имам 1 месец до другия изпит по информатика, а съм го учил отдавна и нищо не помня вече

[Adnan]

Какво точно те вълнува за паскал?
Почни от :
assign(F,'README');
reset(F);
readln(F, s);
close(F);


като стигнеш до тук вече си за делфи

uses graph;
const center=40;
ray=100;
var cd,modegraph : integer;
begin
card:=cd;
initgraph(card, modegraph,'');
circle(getmaxx div 2, getmaxy div 2, ray);
readln;
end.

[quattro^^]

така моля помощ от знаещите значи написал съм нещо ама не мога да разбера какво
ето сорс кода

Код: Избери всички

program gleisq;
type
    ime=record
    ime:char;
    EGN:real;
    otbor:string[20];
    disciplina:string[25];
    mqstoklasirane:string[60];
    end;
    sastezatel=record
    stime:ime;
    end;
    var
st:array[1..40] of sastezatel;
i,j,n:integer;
s:array[1..40] of real;
procedure init;
begin
for i:=1 to n do
with st[i], stime do
begin
writeln('danni za ',i,'=sastezatel:');
write('ime:');readln(ime);
write('EGN:');readln(EGN);
write('otbor');readln(otbor);
write('disciplina');readln(disciplina);
write('mqsto v klasiraneto');readln(mqstoklasirane);
s[i]:=0;
end;
begin
for i:=1 to n do
with st[i],stime do
writeln(EGN:10, otbor:25, disciplina:20, mqstoklasirane:10)
end;
begin
init;
end.

компилирам на турбо паскал при тоя вид на кода ми вади грешка 85: ";" expected като маркера ми седи на end. и нз как да я оправя

[Adnan]

ето сорс кода
program gleisq;
type
ime=record
ime:char;
EGN:real;
otbor:string[20];
disciplina:string[25];
mqstoklasirane:string[60];
end;
sastezatel=record
stime:ime;
end;
var
st:array[1..40] of sastezatel;
i,j,n:integer;
s:array[1..40] of real;
procedure init;
begin
for i:=1 to n do
with st[i].stime do
begin
writeln('danni za ',i,'=sastezatel:');
write('ime:');
readln(ime);
write('EGN:');
readln(EGN);
write('otbor');
readln(otbor);
write('disciplina');
readln(disciplina);
write('mqsto v klasiraneto');
readln(mqstoklasirane);
s[i]:=0;
end;
end;

procedure OutResult;
begin
for i:=1 to n do
with st[i].stime do
writeln(EGN:10, otbor:25, disciplina:20, mqstoklasirane:10)
end;

begin
n:=10 //Broq na sastezatelite na masiwa! ili do maximumua w sluchaq 40
init;
OutResult;
end.


компилирам на турбо паскал при тоя вид на кода ми вади грешка 85: ";" expected като маркера ми седи на end. и нз как да я оправя

Нямам паскал да компилирам но това виждам само от прав поглед

[quattro^^]

благодаря Adnan тръгна