является ли перестановкой массив размера M?

[playboy]

В школе я проходил только Delphi и Basic... Сейчас получил задачу по Паскалю: Дан массив размера M. Если он является перестановкой, то есть содержит все числа от 1 до M, то вывести True, иначе вывести номер первого недопустимого элемента.
О паскале я вообще не имею представления, вообщем я полнейший ноль в этом деле, помогите мне пожалуйста написать эту программу. Заранее всем очень благодарен!

[Stilet]

В школе я проходил только Delphi

и

О паскале я вообще не имею представления

Это вопль лени (сорри за Оффтоп)

Автор, Делфи построено на языке Паскаль. Зная Делфи ты полюбому паскаль знаеш. Там даже функции в основном сохранились Паскалевские.

[puporev]

Так он же пишет, что Делфи только проходил, и то видимо в основном мимо.

[playboy]

мда... мне лень писать в программе, которую вижу в первый раз
а про связь программ я ни че не знал
ну спс хоть за комменты

[Arigato]

playboy
Если Вы знаете Делфи (т.е. умеете в нем писать алгоритмы), но не знаете Паскаля, то специально для Вас я подготовил небольшой урок для освоения среды Turbo Pascal 7.0:
http://www.programmersforum.ru/showthread.php?t=29313
После этого Вам останется только применить свои знания Делфи для решения задачи.

[sverhuVniz]

держи сою задачу:

program lenivim;
var  a:array [1..100] of integer;
b:array [1..100] of integer;
     s,l,m,i,k:integer;
     begin
writeln('vvedite 4islo <<<m>>>');
readln(m);
for i:=1 to m do
read(a[i]);
writeln;
k:=0;
s:=0;
l:=0;
for i:=1 to m  do begin
if a[i]<=m then
k:=k+1
else
begin
l:=l+1;
if l=1 then s:=i;
end;
end;
if l=0 then writeln('true')
else writeln(' nomer 1 nedopustimogo elementa =',s);
end.

[sverhuVniz]

скажи спасибо