[Pascal] Najmniejszy element z wprowadzonych

[Hyronimaru]

Witam, jako, że otrzymałem wołanie o pomoc odnośnie Pascala, ale sam w pewnym sensie poległem (dawno nie miałem styczności z tym językiem), zwracam się o poradę do Forumowiczów. Polecenie brzmi: wyszukaj minimalny element wśród wprowadzonych elementów. wprowadzanie elementów kończy liczba ujemna.

zacząłem pisać kod, który w moich oczach wyglądał na działający, jednak nie chce działać tak jak powinien:

program minimum;
uses crt;
var
a, b, min: integer;
begin
write('podaj pierwsza liczbe: ');
read(a);
a:=min;
repeat
write('podaj kolejna liczbe: ');
read(b);
if b < min then b:=min;
until b<0;
write('wartosc minimalna to: ', min);
repeat until keypressed;
end.

Prosiłbym o wskazanie błędu w kodzie, ewentualnie pomoc w postaci pseudokodu lub schematu blokowego. Z góry dziękuję

[[Ekspert] Hakken]

a:=min;
(...)
b:=min;

To jest pewnikiem źle. Nie potrzebujesz też tylu zmiennych, wystarczą dwie.

Te pętle repeat są kompletnie nieczytelne, ja zrobiłbym to w while'u, coś w stylu

while true do
begin
	readln(a);
	if a < 0 then
		break;
	if a<min then
		min := a;
end;

[Hyronimaru]

Wydaje mi się, że problem prawie rozwiązany. Pętlę repeat uparcie zachowałem (sorry, Hakken ;p), ale zmieniłem ją na:

repeat
write('wprowadź kolejny element: ');
read(a);
if a<min then min:=a;
until a<0;

Tylko teraz zawsze wartością minimalną będzie ta, która wychodzi z pętli...nie jestem przekonany, czy o to chodziło ;p

[[Ekspert] Hakken]

Dodaj warunek sprawdzający czy podana wartość jest większa niż zero zanim przypiszesz nową wartość na min.

[Hyronimaru]

Zrobione, działa. Dzięki za pomoc, temat do zamknięcia