Witam. Jestem laikiem co do języka pascal. Pomógłby ktoś przetłumaczyć ten oto kod?
var
decisions:array of Integer;
var
i, m, n, idol, first, second: Integer;
begin
Read(n, m);
SetLength(decisions, n+1);
for i := 1 to m do
begin
Read(first, second);
decisions[first] := -n;
Inc(decisions[second]);
end;
idol:=0;
for i := 1 to n do
if decisions[i] = n-1 then
idol := i;
if idol = 0 then
WriteLn('Nie ma żadnego idola')
else
WriteLn('Idolem jest ', idol);
end.