как определить сотавшуюся память?

[gylayko]

значит пишу модель менеджера процесов на паскале

uses crt;
var n:integer;
    m:array [1..1024] of integer;
    k,h,i,j,g,s,y,w:integer;
Begin
clrscr;
N:=1024;

WHILE k<>3 do
begin
clrscr;
writeln('1-zapustit proces');
writeln('2=osvobodit pamjat');
writeln('3-vihod');{меню: запустить процес и освободить память}
readln (k);
case  (k)  of

1:begin
  clrscr;
  writeln ('Vvedite kolichestvo pamjati kotoruy zanimaert proces');
  readln (h);{если выбираем запустить процес, указываем, сколько он занимает}

   for  i:=1 to h do
    begin
     m[i]:=1;
    end;
  writeln ('ostavshejas pamjat =',n-h);{заполняем массив (который в нашей модели представляет память) единицами и вычисляем оставшуюся память}
  writeln ('proces sanimaet=',h);
  INC(g);
  writeln ('proces nomer=',g);{также указываем номер процеса}
  READLN;
  end;
2:begin
  clrscr;
  while w<>2 do
   begin
    writeln('1-ukazat nomer');
    writeln('2-vihod');{если выбираем сторой пункт, выскакивает еще одно меню, где пользователь может выбрать,
 какой процес он хочет закрыть или выйти}
    readln(w);
     case (w) of
     1:begin
        writeln ('kakoy process osvobodit');
        readln (y);{тут и проблема: как можно сделать так, чтобы пользователь указывал номер процеса 
и память освобождалась именно от него, думаю, нужно использовать некую переменную у, но что с ней делать дальше?}
        writeln ('ostavshejas pamjat =',);
       end;
  end;
  end;
  end;
  end;
  end;
  end.

помогите пожалуйста, оосталось доделать совсем немного!

[Stilet]

тут и проблема: как можно сделать так, чтобы пользователь указывал номер процеса
и память освобождалась именно от него

Думаю нужно усложнить программу:
Во-первых, ввести список записей, хранящих описание процесса:

TProcess=record
 Name:String;
 Size,Offset:Integer;
end;

Где Size - размер занимаемой процессом памяти, Offset - его начало относительно... Ну видимо первого элемента твоего массива (предположим что это модель памяти)

Далее ввести проверки - при создании нового процесса, проход по массиву и выяснение есть ли для процесса подходящая по размеру дырка среди других.
Что еще...
Да пока ты это реализуй, а после уже проще будет контролировать процессы - список то описателей четко будет идентифицировать занимаемую память.